#!perl

use warnings;
use strict;

BEGIN {
  $SIG{__DIE__} = sub { print "foxxy"; exit; }
}

print "fox'
__END__