#!/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;

##</code><code>##

open("/usr/lib/perl/5.10/auto/Encode/Byte/Byte.so", O_RDONLY) = 3
read(3, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\240\\\3\0\0\0\0\0"..., 832) = 832
fstat(3, {st_mode=S_IFREG|0644, st_size=375048, ...}) = 0
mmap(NULL, 2470176, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3, 0) = 0x7fcef2b27000
mprotect(0x7fcef2b62000, 2093056, PROT_NONE) = 0
mmap(0x7fcef2d61000, 139264, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x3a000) = 0x7fcef2d61000
close(3)                                = 0
mprotect(0x7fcef2d61000, 135168, PROT_READ) = 0

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
use Carp;
$SIG{__DIE__} = sub { print STDERR $_ for (@_); };
binmode STDERR, ":encoding(koi8-r)";
sub mysub {	croak; }
mysub();
1;