sub new {
    my $class = shift;
    my $self = {  };
    bless $self, $class;
    return $self;
}

sub startClient {

    my $self = shift;


    my $client = IO::Socket::INET->new(
        Proto    => 'tcp',
        PeerAddr => 'localhost',
        PeerPort => 55555
    ) or die "Client can't connect: $!";

    $self->{client} = $client;
    $client->blocking(0);
    $client->autoflush(1);
    


    while (1) {


        my @color  = qw(red green yellow magenta skyblue );
        my @status = qw(pending queued running finished stopped);
        foreach ( 1 .. 1000 ) {
            my $randRow = int( rand($range) ) + 1;

            my $color = $color[ rand(@color) ];
            my $state = $status[ rand(@status) ];
            my $data  = $randRow . " " . $state . " " . $color . "  ";
     
            my $bytes = $self->{client}->syswrite($data);              }

        usleep(100000); # hangs  
       # usleep(500000);  #better 

        #sleep 1; #works fine 

    }
}