#!/usr/bin/perl

use Socket;
#use IO::Socket;
$proto=getprotobyname('tcp');
socket(F,PF_INET,SOCK_STREAM,$proto);
$sin=sockaddr_in(80,INADDR_ANY);
bind(F,$sin)
 or die "Could'nt bind\n";
listen(F,1);
accept(FH,F);
select(FH); $|=1; 
select(STDOUT);

do
{
  $buffer=<FH>;
  print $buffer;
} until $buffer eq "\n";

print FH "<h1> Hello World </h1> \n";

close (FH);