while (my $Current=$mesg->pop_entry)
{
 foreach my $Attr($Current->attributes)
 {
  $UserInfo{$Attr}=$Current->get_value($Attr);
 }
};