$SIG{__DIE__}=sub{
                  print STDERR "I'm Dyin!: \n";
                 };

some_command;
$error_code=$?>>8;
print "Finished running some_command";
die if $error_code > 0;