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

$socket->autoflush(1);<br><br>

.....<br><br>
.....<br><br>
my $tcpmessage = realencodeData($mti) . $PrimaryBitmapHex  . $dataelement . "\n";<br><br>
	
$socket->autoflush(1);<br>
print $socket $tcpmessage;<br>
$socket->autoflush(1);<br><br><br><br><br>