#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("cars.xml", forcearray => ['footnote', 'car', 'id']) or die "Sorry no can do:$!";
#$data = $xml->XMLin("cars.xml") or die "Sorry no can do:$!";
print Dumper($data);
exit;

foreach $e (@{$data->{unsold}{car}})
{
print "$e->{model}";
print "$e->{mileage}";
}
foreach $e (@{$data->{footnotes}})
{
print "$e->{footnote}{content}\n";
}