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