open (FH, "< $file") or die "Can't open $file for read: $!";

##</code><code>##

open (my $fh, "<", $file) or die "Can't open $file for read: $!";