#!/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);
}

##</code><code>##

saladino@Zack$ perl pgenerator.pl 
Listening
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Outside callback something
Inside callback sdfas
Outside callback something
Inside callback sdfas safsadf
Outside callback something
Outside callback something
Inside callback sdfas safsadf sadfsasafsa
Outside callback something
Outside callback something
Outside callback something