use IO::Socket;
$socket = IO::Socket::INET->new
(
    PeerAddr => '1.1.1.1',
    PeerPort => #<open port e.g. 80>,
    Proto => "tcp",
    Type => SOCK_STREAM
) or die "Could Not open port";
print $socket "Server message\n";
close($socket);