#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;

$xml = new XML::Simple(KeyAttr=>[]);
$data = $xml -> XMLin("INFO.xml");
#print Dumper($data);

#print "XML read in\n";

foreach $e(@{$data->{t_volume}})
{    
    print $e->{info_name},"\n";
    print "It Size: ", $e->{it_size}, "\n";
    print "\n";
}