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