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