while (my $message = $event->dequeue ) { print "IN HERE\n"; return 1 if $message eq 'STOP';