eval { local $SIG{ALRM} = sub { die "alarm\n" }; alarm $rx_timeout; $ncount = sysread($client, $data , 1); alarm 0; };