$socket = IO::Socket::INET->new(PeerAddr => '77.77.77.77', PeerPort => 1500, Proto => 'tcp') or die "Couldn't connect to remote server\n";

$socket->autoflush(1);

.....

.....

my $tcpmessage = realencodeData($mti) . $PrimaryBitmapHex . $dataelement . "\n";

$socket->autoflush(1);
print $socket $tcpmessage;
$socket->autoflush(1);

##

##

# initialize host and port

$socket = IO::Socket::INET->new(Proto => 'tcp', LocalPort => 1500, Listen    => SOMAXCONN, ReuseAddr => 1,	Reuse => 1) or die "Couldn't connect to port:\n";



warn "Waiting for incoming connections on port 7535...\n";



while (!$quit)

{

	$socket->autoflush(1);

	next unless my $session = $socket->accept;


	
	my $peer = gethostbyaddr($session->peeradd, AF_INET) || $session->peerhost;

	my $port = $session->peerport;

	warn "Connection from ($peer, $port)\n";


	
	$session->autoflush(1);


	
	while (<$session>)

	{

		$session->autoflush(1);

		chomp;

		print $_ . "\n";

		parsemessage($_);

	}

	warn "Connection from ($peer, $port) finished\n";
	close $session;

}



warn "Closing connection(s)...\n";