use strict;

my $t = 14;
print "$t\n";
$t = 15;
print "$t\n";
blah();
print "$t\n";

sub blah {
  my $t = 42;
  print "$t\n";
}