Nothing is impossible, but quoting errors can be easily avoided when using an editor which does syntax highlighting.

Nevertheless:

#!perl

use warnings;
use strict;

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

print "fox'
__END__
[download]

-- Frank