#!/usr/local/bin/perl 

$total = &get_total; 
if ($total eq "error") { 
   print ("No input supplied.\n"); 
} else { 
   print("The total is $total.\n"); 
} 

sub get_total { 
   $value = 0; 
   $inputline = <STDIN>; 
   $inputline =~ s/^\s+|\s*\n$//g; 
   if ($inputline eq "") { 
      return ("error"); 
   } 
   @subwords = split(/\s+/, $inputline); 
   $index = 0; 
   while ($subwords[$index] ne "") { 
      $value += $subwords[$index++]; 
   } 
   $retval = $value; 
}