#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Encode;

$SIG{__DIE__} = sub {
    if (defined $^S && $^S == 0) {
        for my $s (0..$#_) {
            dcs($_[$s]);
        };
    }
};

sub dcs
{
print Dumper(\@_);
  my ($p1, $p2) = @_;
    my @caller = caller(0);
    print Dumper(\@caller);
    print STDERR $caller[1];
    print STDERR "me: " . $p1;
}

sub mysub
{
    die;
}

binmode STDERR, ":encoding(koi8-r)";
binmode STDOUT, ":encoding(koi8-r)";
mysub();

##</code><code>##

print STDERR $caller[1];

##</code><code>##

print STDOUT $caller[1];

##</code><code>##

binmode STDERR, ':raw';