========company.pl========
#!/bin/perl -w

use strict;
use XML::Twig;

my $field= 'group';

my $twig= new XML::Twig;

$twig->parsefile( "company.xml"); # build the twig

my $root= $twig->root;            # get the root of the twig
my @group = $root->children;      # get the list

foreach my $my_group (@group)     # the sorted list
{ 
   print "\nGroup Name: ",$my_group->first_child("name")->text;
   print "\nGroup Name: ",$my_group->first_child("product")->text;
}
================