local $SIG{ALRM} = sub { alarm 0; print "No data\n"; alarm $timeout };