in reply to DIE handling ... carp!
{ my $realdie = \&CORE::GLOBAL::die; local *CORE::GLOBAL::die = sub { $realdie->(@_) if $something; print LOG @_ }; ## do_stuff } [download]