Select Code to Download

use List::Util qw( sum );

...
my $line = <STDIN>;
my @nums = split ' ', $line;
my $user_total = sum @nums;