$MY  = 1;
$LOC = 1;
{
  local $LOC; local $LOC2; local $/; local $^T;
  my $MY; my $MY2;

  printf "LOC  defined: %s\n", defined $LOC  ? "YES" : "NO";
  printf "LOC2 defined: %s\n", defined $LOC2 ? "YES" : "NO";
  printf "IRS  defined: %s\n", defined $/    ? "YES" : "NO";
  printf "TIME defined: %s\n", defined $^T   ? "YES" : "NO";
  printf "MY   defined: %s\n", defined $MY   ? "YES" : "NO";
  printf "MY2  defined: %s\n", defined $MY2  ? "YES" : "NO";

  print "  LOC=$LOC, LOC2=$LOC2, TIME=$^T, IRS=$/, MY=$MY, MY2=$MY2\n";
}
print "AFTER LOOP:\n";
print "  LOC=$LOC, LOC2=$LOC2, TIME=$^T, IRS=$/, MY=$MY, MY2=$MY2\n";