#!/usr/local/bin/perl

use IO::Socket;

my $port  = 1426;
my $host = myhost;

our $socket = IO::Socket::INET->new(
                                    Proto => 'tcp',
                                    PeerAddr => "$host",
                                    PeerPort => "$port"
                        ) or die "Can't create listen socket: $!";

$socket->send("begin\n");


while(<$socket>) {
        chomp;
        print $_ . "\n";
}
close $socket;