Select Code to Download

>perl -e"my @h = ( \*STDOUT ); print $h[$_] qq{foo!\n} for 0..$#h"
syntax error at -e line 1, near "] qq{foo!\n}"
...

>perl -e"my @h = ( \*STDOUT ); print { $h[$_] } qq{foo!\n} for 0..$#h"
foo!