##########
 # SERVER #
 ##########

 my $sock = Wx::SocketServer->new('localhost',5050,wxSOCKET_WAITALL);

 EVT_SOCKET_CONNECTION($parent , $sock , \&onConnect ) ;

 if ( !$sock->Ok ) { print "ERROR\n" ;}

  sub onConnect {
           my ( $sock , $this , $evt ) = @_ ;
           my $client = $sock->Accept(0) ;

           my ($local_host,$local_port) = $client->GetLocal ;
           my ($peer_host,$peer_port) = $client->GetPeer ;

           $client->Write("This is a data test!\n") ;