use strict;
use IO::Socket;

my $sock = new IO::Socket::INET (PeerAddr => '127.0.0.1',
				 PeerPort => 1200,
				 Proto    => 'tcp',
				);
die "Can't create: $!\n" unless $sock;

print $sock "send money!";

close $sock;