my $file = "html.html"; unless (open (HTML, $file)) { print "Fehler: konnte die Datei '$file' nicht oeffnen: $! "; } else { print ; close HTML; }