use strict;
use warnings;
use XML::Maker;

my $xml = XML::Maker->new ('Body');
my $foo = $xml->subtag ('Foo');

$foo->subtag ('Bar');
print $xml->make ();