Select Code to Download

#!/usr/local/bin/perl -w
#Script
...
$xmldoc->write(10,5);
print "\n\n\nFourth example... Going to a file \"out.xml\"\n";
$xmldoc->write('','',"out.xml");

#!/usr/local/bin/perl -w
# Module
...
    return 0;
}
1;