my $MsgListener = new Msg::Server(2222,\&messageHandler);
$MSGListener->Start();

sub messageHandler{
        my $message = shift;
        my $peer = shift;
        chomp($message);
        print "MSG from $peer -> $message\n";
        my @tokens = split(' ',$message);
        my $token

}