if (open(FH, $file)) {
    # hat geklappt
    # mach was mit FH
} else {
    # open fehlgeschlagen
    # Fehlerbehandlung
}