Select Code to Download

# perl -e 'use Data::Dumper; my @a = qw(1 2 3); push @a, map { $_ * 2 
+} qw(4 5 6); print Dumper(\@a); ' 
$VAR1 = [
...
          12
        ];

# perl -e '

...
          'C:/Temp/somedir/seven',
          'C:/Temp/somedir/nine'
        ];