Select Code to Download

  my $OutXmlFile = IO::File->new(">$OutFileName");

  my $writer = XML::Writer->new(OUTPUT => $OutXmlFile,DATA_MODE=>1,DAT
+A_INDENT=>5);

sub GetMappletList
   {
...
   
   }