$SIG{ALRM} = sub{die "timeout"};
eval{
  alarm($timeout);
  local $/ = "~";
  $line_in = <$socket>;
  alarm(0);
};