# somewhere at the beginning of the code
$SIG{__WARN__} = \&Warning;
$SIG{__DIE__}  = \&Die;

# anywhere
# ------------------------------------------------------------
sub Warning {
    my @text = @_;
    warn "------------------------------------------------------------\n";
    warn "WARNING: @text\n";
    my $count = 0;
    {
	my ($package, $filename, $line, $sub) = caller($count);
	last unless defined $line;
	warn sprintf("%02i %5i %-35s %-20s\n", $count++, $line, $sub,
		     $filename);
	redo;
    }
} # Warning
# ------------------------------------------------------------
sub Die {
    my @text = @_;
    warn "------------------------------------------------------------\n";
    warn "FATAL ERROR: @text\n";
    my $count = 0;
    {
	my ($package, $filename, $line, $sub) = caller($count);
	last unless defined $line;
	warn sprintf("%02i %5i %-35s %-20s\n", $count++, $line, $sub,
		     $filename);
	redo;
    }
    exit 1;
} # Die
# ------------------------------------------------------------