A
Abort trap

##</code><code>##

#!/usr/bin/perl
use strict;
use Encoding;
use XML::Simple;
use utf8;
use Data::Dumper;
$|++;
open my $xmlf,"<:encoding(UTF-8)", "xml/breadtitle.xml" or die $!;
binmode STDOUT,":utf8";
my $x=XML::Simple->new();
print "A\n";
my $xm=$x->XMLin($xmlf) or die $!;
print "B\n";