#!/usr/bin/perl
use warnings;
use strict;
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;
while ($Socket->connected) {
	$Socket->recv(my($Byte),1);
	if (length($Byte)) {
		print "Byte: $Byte$/";
	} else {
		print "No byte.$/";
	}
}