use IO::Select ();

sub socket_read {
   my $sel = IO::Select->new($socket);

   while (!$sel->can_read(60)) {
      print STDERR "Received alarm\n";
   }

   my $len = $socket->sysread($line, 1024);

   ...
}