Premium ##
##

sub parseRoot {
   my $xmlIn = shift;
   $_ = ${$xmlIn};
   my %rootAttr;
   while (m#(\S+?)="(\S+?)"#g) {
      ($1 eq 'version') && next; #skip the xml version
      $rootAttr{$1} = $2;
   }
   return \%rootAttr;
}