#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;

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

print "XML read in\n";

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