#!/usr/bin/perl
use IO::Socket;

$SIG{ALRM} = sub {print "Timeout\n"; die;};

my $server = shift;
alarm 5;
eval {
  my $fh   = IO::Socket::INET->new($server);
  my $line = <$fh>;
};