Select Code to Download

#!/usr/bin/perl

$test1 = "value of test1";
...
# $main::{"test1"} = "test1";
print "\$test1 = >>", $test1, "<<\n";
print "Main package: ", $main::test1, "\n";