STDERR umleiten, aber wie flock einsetzen?

[opi]

Hallo Dieter,

kennst du denn eine Möglichkeit, STDERR an ein Modul zu übergeben?

Beispiel des Moduls:

  
sub doSTDOUT {  
   my $msg = shift;  
   my $tm = [ localtime(time) ];  
   $tm->[5] += 1900;  
   $tm->[4]++;  
   foreach (@$tm) { $_ = "0$_" if $_ < 10; }  
   sysopen LOGFILE, "./logfile", O_WRONLY | O_APPEND | O_CREAT or die $!;  
   flock(LOGFILE, LOCK_SH);  
   print LOGFILE "$tm->[5]-$tm->[4]-$tm->[3] $tm->[2]:$tm->[1]:$tm->[0] $msg\n";  
   close LOGFILE;  
}

Wie kann ich jetzt STDERR übergeben bzw. umleiten?

Greez,
opi