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() ) {	
	print 	"Connecting from: ", $addr->peerhost();	
	print	" Port: ", $addr->peerport(), "\n";
	while (<$addr>) { 
		print "Client: $_";
	}
	close $addr;	# close client
	print "Idle...\n";	
}