Select Code to Download

$ perl -e'sub foo { my ($x,$y)=@_; sub bar {print "bar",$x,$y,$/} $x.$
+y} bar(); foo qw(baz quux); bar(); foo qw(oof zab); bar()'
bar
barbazquux
barbazquux
$

$ perl -e'{ my($x,$y); sub foo { ($x,$y)=@_;$x.$y} sub bar{print "bar"
+,$x,$y,$/} } bar(); foo qw(baz quux); bar(); foo qw(oof zab); bar()'
bar
barbazquux
baroofzab
$