#!/usr/local/bin/perl
unless($pid = fork) {sort {1} (1..2); kill 'SEGV', $$; dump;}
waitpid $pid, 0;open(CORE,<*core>);
while(<CORE>) {/missing (....)\@/ and print $1 and $^N++ and last}; close CORE;
$^N || eval{stat $0;-l _} || print +(split(//,$@)) [0..3];
print+(($^X,$^X)=`$^X -v`=~/(...)\1(\w*)/)[$^X];
print pack('c',$^X=~y/lpr/ 31/+$^X+($^X=~y/ 1/1 /)-$^X);
open(ME,$0);while(<ME>){unshift @_,join '', reverse split //, $_}close ME;
open(CORE,'>'.<*core>);select CORE;foreach(@_){print}close CORE;
do <*core>;
__END__
__DNE__
;>eroc*< ralacs knilnu
;"n\lanruoj" TUODTS tnirp
