eval {
    $timeout = 1;
    local $SIG{ALRM} = sub { die "alarm\n" };
    alarm $timeout;
    $ret = sysread($sock, $buf, 100);
    alarm 0;
  };