#!/usr/bin/perl
use strict;
use warnings;

$SIG{_ _DIE_ _} = sub {
    print "Fehler aufgetreten: @_\n";
    close XY;
};

my $a = 1;
my $b = 0;

open XY, ">testfile" or die "Konnte Datei nicht oeffnen!";
print XY "Das ist ein wenig Text\n";
print $a / $b; # Hier gibt es Division by zero
print "Wird nicht mehr ausgeführt.\n";
close XY;