sub foo{
  my $thing = shift;
  print $thing->to_xml;
}