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