{ local *INPUT; if (open(INPUT, "file.ext")) { print while (); close INPUT; } # for diagnostic purposes, uncomment these lines # else { # print "Couldn't open file: $!"; # } }