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;
  }
 }
}