#!/usr/bin/perl
use strict;
use warnings;

use Server;

my $Listener = new Server(2222,\&messageHandler);
$Listener->Start();

my @messages;
push(@messages,"something");

sub messageHandler{
        my $message = shift;
        my $peer = shift;
        chomp($message);
        push(@messages,$message);
        print "Inside callback @messages\n";

}

while(1){
        print "Outside callback @messages\n";
        sleep(1);
}