open INFILE, "$inputfn" or die "Error reading input file: $!\n";

##</code><code>##

open(INFILE, "$inputfn") || die "Error reading input file: $!\n";