Select Code to Download

perl -We'use strict; my $a; my $b = %{ $a }'

perl -We'use strict; my $a; my @b = map { $_ } %{ $a }'
perl -we'use strict; sub foo {}; my $a; foo( @{ $a } )'