- or download this
use warnings;
use strict;
...
for ( 1..5 ) {
print { $foo[$_] } "$_\n";
}
- or download this
use warnings;
use strict;
...
for ( keys %foo ) {
print { $foo{$_} } "$_\n";
}
- or download this
use warnings;
use strict;
...
} else {
print STDERR "Failed to fork!?!?!?: $!\n";
}