#!/usr/local/bin/perl

$total = 0;
$count = 1;
while ($count <= @ARGV) {
        $total += $ARGV[$count-1];
        $count++;
}
print ("The total is $total.\n");
