Select Code to Download

use strict;
my $tt = 3.14159;
...
}
print "Outside block, \$tt = $tt\n";
print "Outside block, \$::tt = $::tt\n";