Select Code to Download

lanx$ perl -e '
$a='a';$b='b'; my $var;
for $var ( $a,$b ) {
...
'
x 
x