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