Select Code to Download

perl -e '
BEGIN {
...
  print "after die\n";
}
'

  *CORE::GLOBAL::die = sub {
    if ($SIG{__DIE__}) {
...
      $SIG{__DIE__}->($s);
    }
  };