STDERR umleiten, aber wie flock einsetzen?

[opi]

Hallo Siechfred,

Nana, wer wird denn verzweifeln, den Link zu perlipc hatte ich dir schon gepostet. Darüber hinaus findest du eine recht ausführliche Beschreibung unter http://dev.perl.org/perl6/rfc/236.html.

ich habe mich durch die Doku gelesen.

  
use strict;  
use warnings;  
  
my $warn = [];  
my $die  = [];  
  
$SIG{__WARN__} = sub { push @$warn, @_; };  
$SIG{__DIE__}  = sub { push @$die, @_; };  
  
warn "WARNUNG\n";  
die  "STERBEN\n";  
  
print @$warn;  
print @$die;  
  
print "WENN DIESE ZEILE AUSGEGEBEN WIRD, HAT ALLES FUNKTIONIERT\n";  

Leider funktioniert das nicht wie gewünscht. Das Skript endet bei
der Ausgabe von "STERBEN".

Wenn ich allerdings die Zeile

die "STERBEN\n";

auskommentiere, dann klappt es. Was mache ich hier noch falsch?

Greez,
opi