Hi!

I don't know much about that module (nothing), but here's
something:

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

Don't shoot me for this one, I have NO clue to this module,
just read the man page to find the pop_entry, and got rid
of the join and split because I didn't understand why those
were there

Code is untested ofcourse ;)))

ChOas

upd. changed the curly bracy thingies
(they were: get_value{$Attr};