print "\n == code fragment 1 ============================================= \n";

print join "\n",
  XML_elem( 'root', { ID => 0 },
    XML_elem( 'branch',
      XML_elem( 'sub_branch', { foo => 2 },
        'some contents & entities, "<>"'
      ),
      'other contents',
    ),
  'root stuff',
  );