Help for this page
Select Code to Download
Select
or
download this
>perl -wMstrict -le "sub max { ... print $n; " 2