sub new {
    my $class = shift;
    my %args  = @_;

    my $self = { guiObj => $args{guiObj}, };
    $self->{buffer} = "" unless defined $self->{buffer};
    bless $self, $class;

    return $self;

}
sub startServer {

    my $self       = shift;
    my $guiobj = $self->{guiObj};

    my $server = IO::Socket::INET->new(
        Proto     => 'tcp',
        LocalPort => 55555,
        Listen    => SOMAXCONN,
        Reuse     => 1
    ) or die "Server can't start: $!";
    my $readable_handles = new IO::Select();
    $readable_handles->add($server);

    $guiobj->{parentWnd}->after( 10000, [ \&dump_count, $self ] );
    $guiobj->{parentWnd}
      ->repeat( 1, [ \&checkData, $self, $server, $readable_handles ] );
    
}

sub checkData {

# this function checking the socket and whenever it is #readable, reads the data into $self->{buffer} and calls 
#the updateDisplay() of the Gui.pm with that read data

 if ( $sock->sysread( $buf, 16 * 1024 ) ) {
                        
	$self->{buffer} .= $buf;
        my $databuf = $self->{buffer};
        $self->{guiObj}->updateDisplay($databuf)
}

sub dumpCount 
{

# dumps the data sent to the gui after every 10ms in a file #which stores it in a hash structure where hash keys are #timestamps
}