#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

eval {          # Kritischer Block

    for($i=1; $i<10; $i++) {
        if($i == 9) { 
            die "i ist 9!";     # die() bricht das Skript 
                                # _nicht_ ab, sondern nur die
                                # Abarbeitung des eval-Blocks
        }
    }
};              # Ende des kritischen Blocks

if($@) {        # Fehlerabfrage
    print "Ein Fehler ist aufgetreten: $@";
}