my $out; open($out, '>', "/kompletter/pfad/auf/Test") # Datei für Ausgabe erzeugen; vorhandene wird überschrieben or die "Fehler: Datei zum Schreiben konnte nicht erzeugt werden ($!)"; # hier wird auf Fehler getestet und mit Fehlermeldung abgebrochen print {$out} $variable or die "Fehler: Daten konnten nicht geschrieben werden ($!)"; close($out) or die "Fehler: Datei konnte nicht geschlossen werden ($!)";