#!/usr/bin/perl -w

$| = 1;
use strict;
use warnings;

BEGIN {
    open( STDERR, ">> stderr.log");
}

sub DaKommt
der Fehlerhfate Code ödäää?

END{
    close( STDERR );
}
1;

$SIG{_ _WARN_ _} = \&SigWarn; # ohne leerzeichen zw _ _
...
sub SigWarn {
    print "-" x 60, "\n";
    print @_;
    print "\nBacktracking:\n";

    my $count = 1;
    while ($count > -1) {
    my ($package, $filename, $line, $sub) = caller($count);
    last unless defined $line;
    printf("%02i %5i %-20s %-20s\n", $count++, $line, $sub, $filename);
    } # while


} # SigWarn

$SIG{_ _ DIE _ _} = sub {
    #return if $^S;
    print "@_";
    exit;
};

eval { require JGgrghreioge };

eval { local $SIG{_ _ DIE _ _ }; .... }

  BEGIN {
      my $logfile = 'error_log';
      open(LOG, '>>', $logfile) or die $!;
      
      my $fno = fileno(LOG); # Filenumber der Logdatei
          
      open(STDERR, ">&$fno") # STDERR nun auf den Kanal mit der Nummer $fno umgeleitet
          or print LOG "can't redirect STDERR to $logfile\n";
  }

  die "boeser Fehler!\n"

BEGIN {

    sub wahn {
        open( F, ">> wahn.log" ); # ;)
        truncate( F, 0 ) if ( (stat( F ))[7] > 1024*1024 ); # > 1 MByte
        flock( F, 2 );
        my $s = localtime;
        print F $s; 
        print F ' [WARN]';
        foreach (@_) { print F " $_" }
        print F "\n";
        close ( F );
    }

    sub dai {
        open( F, ">> wahn.log" );
        truncate( F, 0 ) if ( (stat( F ))[7] > 1024*1024 ); # > 1 MByte
        flock( F, 2 );
        my $s = localtime;
        print F $s; 
        print F ' [DIE]';
        foreach (@_) { print F " $_" }
        print F "\n";
        close ( F );
    }

    $SIG{_ _DIE_ _} = \&dai;
    $SIG{_ _WARN_ _} = \&wahn;
}