#!perl -w
use IO::Socket;
use strict;
$| = 1;
my $queuelength=1;

my $listensock = IO::Socket::INET->new(
  Proto => 'tcp',
  LocalPort => 80,
  Listen => $queuelength,
  ReuseAddr => 1,
) or die "new listen socket: $!\n";

while(my $newsocket = $listensock->accept)
{
 my $line;

 print "hello1\n";
 while (defined ($line = <$newsocket>) && $line ne "\r\n") {
   print $line;
 }
 print $newsocket "HTTP/1.0 200 OK\r\n";
 print $newsocket "Content-type: text/plain\r\n\r\n";
 print $newsocket "Howdy!\r\n";
 close($newsocket);

 print "hello2\n";
}