use IO::File;
# ...
my $fh=IO::File->new;
if ($fh->open($file,"<")) { # ...

##</code><code>##

open my $fh, "<", $file or die "Can't open $file $!";