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"