#!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";
}

##</code><code>##

#!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";
}