my $sock = new IO::Socket::INET( PeerAddr => '127.0.0.1',
                                     PeerPort => 12000,
                                     Proto    => 'tcp',
                                     Blocking => 1);

    print $sock "Hello\n";