$fn = "non_existant_file"; open IN, "<$fn" or die "open: $fn: $!\n";