#!/usr/local/bin/perl

unshift (@INC, "/u/jqpublic/perlfiles");
require ("sum.pl");
@numlist = <STDIN>;
chop (@numlist);
$total = &sum (@numlist);
print ("The total is $total.\n");
