Help for this page
package CommonObject; ... 1;
package Foo; ... 1;
#!/usr/bin/perl -w ... print "\n", "Document:\n", $doc->toString(), "\n";