# Attempt to restart on SIGHUP $SIG{HUP} = sub { call_hooks("restart_exec"); no warnings qw(exec); exec $0; call_hooks("restart_survived"); };