Select Code to Download

sub sum($$){...}   # do you really need ($$) ? That is rarely useful.

>perl -wMstrict -le
"sub sum ($$);
...
"
(HARD 1 2 3 4)  arguments: 5
(SOFT 9 8 7 6)  arguments: 5