Select Code to Download

#!/usr/bin/env perl

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

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
...
mmap(0x7fcef2d61000, 139264, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIX
+ED|MAP_DENYWRITE, 3, 0x3a000) = 0x7fcef2d61000
close(3)                                = 0
mprotect(0x7fcef2d61000, 135168, PROT_READ) = 0

#!/usr/bin/env perl
use strict;
...
sub mysub {    croak; }
mysub();
1;