in reply to Strange warning message regarding filehandle in an "open" statement
You eliminate it my using a lexical filehandle (if you're using perl>=5.6):
open (my $INPUT, $filename) or die ("Can't open '$filename' for reading: $!\n"); [download]