use strict; my $t = 14; blah(); print "$t\n"; sub blah { my $t = 42; print "$t\n"; }