if (! open INFH, "<$file") {
    warn "Error opening '$file': $!";
};