my $c = 0;
    print"creating socket\n";
    my $sock;
    while(!defined($sock)){
    eval{$sock =
    IO::Socket::INET->new(PeerAddr=>'localhost',PeerPort=>1065,Proto=>'tcp')or
    croak "$!"};
    }
    while(1){
        my $data = "trololol ".$c."\n";
        print $sock $data or croak "$!";
        $c++;
     }