Select Code to Download

perl -e 'my @var = (1,2,3,4); sub baz {}; @var = baz(); print "po", jo
+in(",",@var),"of!\n";'

perl -e 'sub foo{return ()}; my %hash = (1 => 2, 3 => 4); %hash = foo(
+); while (my ($k, $v)=each %hash){print "$k,$v\n"};'