Select Code to Download

>perl -E "while (<STDIN>) {say shift; push @input, $_;} say @input;"
foo bar baz

...
sat
sot

C:>perl -E "use Data::Dumper; say Dumper @ARGV;" foo bar baz bat
$VAR1 = 'foo';
$VAR2 = 'bar';
$VAR3 = 'baz';
$VAR4 = 'bat';