local $SIG{ALRM} = sub {print "SERVER-PING!\n"; keep_alive(0)};