sub start_log #(Dateiname)
 {
 my $filename = shift;
 open(FH,">>".$filename) || return 0;
 chmod($filename,644);
 # Autoflush setzen fuer FH
 my $oldfh = select(FH); $| = 1; select($oldfh);
 # Lock freigeben
 flock(FH,8);
 # warn und die umleiten
 $SIG{_ _WARN_ _} = \&log_warn;
 $SIG{_ _DIE_ _} = \&log_die;
 return 1;
 }