#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML;

my $parser = XML::LibXML->new;
open my $fh, 'leap2a.xml';
binmode $fh;
my $doc = $parser->parse_fh($fh);

print $doc->toString(1);
