use warnings;
{
   local *T;
   open(T, ">foo") || die;
   print T "HALHGLAG\n";  # Works okay!
}
print T "Surprise!\n";  # warns "print() on closed file..."