my $xml = XML::Smart->new; $xml->{Body} = { Foo => 'Bar' }; $xml->save("test.xml"); ##

##



##

##

Bar