$ perl -le '$SIG{__DIE__} = sub { die }; foo()'; echo $?
  Died at -e line 1.
  255