Select Code to Download

#!/usr/bin/perl

...
my $foo = "hello"; $main::foo = "world";

print "$foo $main::foo\n";