$ ls log.err
ls: cannot access log.err: No such file or directory
$ cat dieonpurpose.pl 
#!/usr/bin/env perl 
use strict;
use warnings;

local $SIG{__DIE__} = sub {
                            my $message = shift;
                            system qq(echo  "$message" >> log.err);
                           };

die "Afghanistan bananastand\n";

$ ./dieonpurpose.pl 
Afghanistan bananastand
$ cat log.err
Afghanistan bananastand

$