Help for this page

Select Code to Download

Select or download this

$ perl -e "
sub a{return (1,2)}
sub b{print scalar @_,
            map $$_, @_}
b(\a());"