open(IN, $file) or die "The file $file". "is not present.\n";

##</code><code>##

open my $IN, "<", $file
  or die "can't open $file: $!";