open (FILE,$file) || die ("cant open file");

##</code><code>##

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