$SIG{__WARN__} = \&warn_trap;
   $SIG{__DIE__} = \&death_trap;

...
sub warn_trap {
    my $warning = $_[0];
    if (caller eq $WHOAMI or !splainthis($warning)) {
...

sub splainthis ...
	print THITHER "$orig (#$old_diag{$_})\n";