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

socket(HANDLE, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
   or die "socket call failed: $!\n";

my $addr = sockaddr_in(80, INADDR_ANY) or die "sockaddr_in: $!\n";
bind(HANDLE, $addr) or die "bind: $!\n";

listen(HANDLE,$queuelength);

while(1)
{
 print "hallo1\n";
 accept(NEW_HANDLE, HANDLE);
 my $line;

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

 print "hello2\n";
}