http://qs1969.pair.com?node_id=300893


in reply to $Socket->connected Not Returning False?

You could use sysread like this:
use IO::Socket::INET; my $Socket = IO::Socket::INET->new( PeerAddr=>"perlmonks.org:80" ) or die; $Socket->send("GET /404 HTTP/1.0$/$/") or die; my $still_connected=1; while($still_connected){ my $Byte; my $read=sysread($Socket,$Byte,1); if(defined($read)){ if($read==0){ $still_connected=0; }else{ print "Byte: '$Byte'$/"; } }else{ if($!==EAGAIN()){ print "No byte.$/"; }else{ print "Error $!.$/"; $still_connected=0; } } }

Ant9000