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);