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