use strict; my $tt = 3.14159; { my $inner_tt = 3; print "In block, \$tt = $tt\n"; print "In block, \$inner_tt = $inner_tt\n"; } print "Outside block, \$tt = $tt\n"; print "Outside block, \$inner_tt = $inner_tt\n";