print $socket "Hello there!!\n"; close ($socket); $answer = <$socket>; print $answer; close ($socket); $server = IO::Socket::INET->new ( PeerAddr => ' ThisDomain.com', PeerPort => '2000', Proto => 'tcp', Type = 'SOCK_STREAM' ) or die "Could not Open Port.\n"; while ($client = $server->accept()) { $line = <$client>; print $line; } close ($server); while ($client = $server->accept()) { print "Hello Client !!\n"; } close ($server);