package X;

BEGIN { whatever; }

$main::SIG{__DIE__} = \&some_function; # when does this get run?

sub new { ... }