my %data = ( to => 'Bob', 
  from => 'Alice',
  heading => 'Secret',
  Body => 'Shhh!'
);
MyApp::Note->new(data => \%data)->tree->as_XML;