while($$queueObject{msmqLookupId} = $$self->{queue}->dequeue())
{
  &{$$self->{handler}}($queueObject->peekMessage());
}