open(my $INFILE, "<", $file)
    or die "can't open file '$file' for reading: $!";