Select Code to Download

perl -e '@foo = map {$_=2; foo()} 1..10; sub foo{print}'
2222222222
...
$ perl -e '@foo = map {my $_=2; foo()} 1..10; sub foo{print}'
12345678910