use IO::Socket;
$local = IO::Socket::INET->new(
        Proto      => 'tcp',        
        LocalAddr => '192.168.150.131:80',            Reuse     => 1
        ) or die "$!";
$local->listen();    
print "Awaiting client...\n";
my $addr;    
while ($addr = $local->accept() ) {    
$addr->autoflush(1);
    print     "Connecting from: ", $addr->peerhost();    
    print    " Port: ", $addr->peerport(), "\n";

    while (<$addr>) { 
# Should a catch go here upon the \r\n\r\n and close conn
# or a call to accept continuation?
# Everything is coming into the computer
# The server just stops
        print "Client: $_";
    }
    close $addr;    # close client
    print "Idle...\n";    
}