Help for this page

Select Code to Download

Select or download this

freebie:~ 824> perl -MO=Deparse,-p,-q foo                             
+ 14:05:06
sub HARRIS () {
...
print((join(' ', @a) . "\n"));
print((join(' ', keys(%{$b;})) . "\n"));
foo syntax OK