#!/usr/bin/env perl

use strict;
use warnings;

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

sub dcs
{
  my ($p1, $p2) = @_;
  my $cs='';
  for (my $i=1; $i<3; $i++) {
    my ($package, $filename, $line, $subroutine) = caller($i);
    last if ( ! defined($package) );
    print STDERR $filename;
  }
  print STDERR $p1;
}

sub mysub
{
	die;
}

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