不论使用LWP还是IO::Socket，timeout参数都是一个古怪的问题，它要么不起作用，要么有很大的局限性，比如只有在目标地址能够连通，但 Socket无法建立的情况下才有效，如果完全连不上目标地址，程序就会阻塞，timeout设置的时间不起作用，这种情况一般叫做DNS解析错误，即使 是用ip连接也一样。
要实现完全可控制的timeout连接，常见的办法是使用alarm：

 
  
  1. #!/usr/bin/perl -w 
  2.  
  3. use strict; 
  4. use IO::Socket::INET; 
  5.  
  6. my $timeout = 5; 
  7.  
  8. eval 
  9. { 
  10.     local $SIG{ALRM} = sub { die 'Timed Out'; }; 
  11.     alarm $timeout; 
  12.     my $sock = IO::Socket::INET->new( 
  13.                      PeerAddr => 'somewhere', 
  14.                      PeerPort => '80', 
  15.                      Proto => 'tcp', 
  16.                      ## timeout => , 
  17.     ); 
  18.     
  19.     $sock->autoflush(1); 
  20.  
  21.     print $sock "GET /  HTTP/1.0\n\n"; 
  22.     
  23.     undef $/; 
  24.     my $data = <$sock>; 
  25.     $/ = "\n"; 
  26.     
  27.     print "Resp: $data\n"; 
  28.     
  29.     alarm 0; 
  30. }; 
  31.  
  32. alarm 0; # race condition protection 
  33. print  "Error: timeout." if ( $@ && $@ =~ /Timed Out/ ); 
  34. print "Error: Eval corrupted: $@" if $@; 
 
  

 但这在Win32中似乎没有效果，其实比较合理的做法是在Socket创建时不设定目标地址，然后将Socket设置为非阻塞模式，最后再连接地址：
 
  
 
  
  1. #!/usr/bin/perl 
  2.  
  3. use strict; 
  4. use IO::Socket::INET; 
  5. use IO::Select; 
  6. use IO::Handle; 
  7.  
  8. BEGIN 
  9. { 
  10.     if($^O eq 'MSWin32') 
  11.     { 
  12.     eval '*EINPROGRESS = sub { 10036 };'; 
  13.     eval '*EWOULDBLOCK = sub { 10035 };'; 
  14.     eval '*F_GETFL     = sub {     0 };'; 
  15.     eval '*F_SETFL     = sub {     0 };'; 
  16.     *IO::Socket::blocking = sub 
  17.     { 
  18.         my ($self, $blocking) = @_; 
  19.         my $nonblocking = $blocking ? 0 : 1; 
  20.         ioctl($self, 0x8004667e, \$nonblocking); 
  21.     }; 
  22.     } 
  23.     else 
  24.     { 
  25.     require Errno; 
  26.     import  Errno qw(EWOULDBLOCK EINPROGRESS); 
  27.     } 
  28. } 
  29.  
  30. my $socket; 
  31. my $timeout = 5; 
  32.  
  33. if (!($socket = IO::Socket::INET->new( 
  34.          Proto    => "tcp", 
  35.          Type     => SOCK_STREAM) )) 
  36. { 
  37.     print STDERR "Error creating socket: $@"; 
  38. } 
  39.  
  40. $socket->blocking(0); 
  41.  
  42. my $peeraddr; 
  43. if(my $inetaddr = inet_aton("somewhere")) 
  44. { 
  45.     $peeraddr = sockaddr_in(80, $inetaddr); 
  46. } 
  47. else 
  48. { 
  49.     print STDERR "Error resolving remote addr: $@"; 
  50. } 
  51.  
  52. $socket->connect($peeraddr); 
  53. $socket->autoflush(1); 
  54.  
  55. my $select = new IO::Select($socket); 
  56.  
  57. if($select->can_write($timeout)) 
  58. { 
  59.     my $req = "GET / HTTP/1.0\n\n"; 
  60.     print $socket $req; 
  61.  
  62.     if($select->can_read($timeout)) 
  63.     { 
  64.     my $resp; 
  65.     if($resp = scalar <$socket>) 
  66.     { 
  67.         chomp $resp; 
  68.         print "Resp: $resp\n"; 
  69.     } 
  70.     } 
  71.     else 
  72.     { 
  73.     print "Response timeout.\n"; 
  74.     } 
  75. } 
  76. else 
  77. { 
  78.     print "Connect timeout.\n"; 
  79. } 
  80.  
  81. close $socket; 
  82. exit; 
 
  

 由 于在Win32中不能直接使用blocking(0)，所以用ioctl进行设置，以上方法在Linux和Win32中都能正常工作，但如在Win32中 把IO::Socket::INET换成IO::Socket::SSL就不行了，后来我去perlmonks问了这个问题，但并没有得到解决：
http://www.perlmonks.org/?node_id=676887