Help for this page
open INFILE, "$inputfn" or die "Error reading input file: $!\n";
open(INFILE, "$inputfn") || die "Error reading input file: $!\n";