Help for this page

Select Code to Download

Select or download this

sub summer { my $sum;
$sum += $_ for @_;
$sum } print summer (split);