say "Please input numbers to be summed. Crtl-D to stop";
       my $user_total = &total(<STDIN>);
       chomp($user_total);
       #print "The total of inputted numbers is $user_total \n";

       sub total {
         state $sum = 0;
         state $number;

       foreach my $number (@_) {
           $sum += $number;
       }
       
            return $sum;

      }
~      

Please input numbers to be summed. Crtl-D to stop
12 12
Argument "12 12\n" isn't numeric in addition (+) at ./Chapter_Exer1A line 17, <STDIN> line 1.