Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"sub F { return 4; }
...
 for (F(), G(), H()) { ++$_;  printf qq{$_ }; }
"
5 6 7