#!/usr/bin/perl

print "Content-type: text/plain\n\n";

my @nums = split /\//, $ENV{PATH_INFO};

my $total = 0;
for (@nums) { $total += $_ }

print "The total is $total\n";