#!/usr/bin/perl

use strict;
use XML::Simple qw(XMLin);
use Data::Dumper;

my $xm = XMLin("xml/breadtitle.xml");

print Dumper($xm);