Select Code to Download

$socket = IO::Socket::INET->new(PeerAddr => '77.77.77.77',
                                PeerPort => 1500,
...
$socket->autoflush(1);<br>
print $socket $tcpmessage;<br>
$socket->autoflush(1);<br><br><br><br><br>

# initialize host and port<br>
$socket = IO::Socket::INET->new(Proto => 'tcp', LocalPort => 1500, Lis
+ten    => SOMAXCONN, ReuseAddr => 1,    Reuse => 1) or die "Couldn't 
+connect to port:\n";<br><br>
...
}<br><br>

warn "Closing connection(s)...\n";<br><br>