##
#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
$xmlfile = "/home/rob/xml/config.xml";
#create object
$xml = new XML::Simple;
#read XML file
$hash = $xml->XMLin($xmlfile);
%element = $hash->{site}->{header}->{date};
foreach $key (sort keys %element) {
print $key;
}
#print Dumper $hash;