# Handles when we exit with a 'die "foo"...'
sub die_handler {
    my ($msg) = @_;
    shutdown_now("Died; $msg");
}

$SIG{__DIE__} = \&die_handler;