unless (open(IN,$file)) {
    warn "Unable to open $file for modification\n";
    next;
}