Select Code to Download

use warnings;
use strict;
...
for ( 1..5 ) {
  print { $foo[$_] } "$_\n";
}

use warnings;
use strict;

...
for ( keys %foo ) {
  print { $foo{$_} } "$_\n";
}

use warnings;
use strict;
...
} else {
    print STDERR "Failed to fork!?!?!?: $!\n";
}