Select Code to Download

use IO::Socket;
$socket = IO::Socket::INET->new
...
) or die "Could Not open port";
print $socket "Server message\n";
close($socket);