Help for this page
sub new { my ($class,%args) = @_; ... sub method2 { ... } 1;
package My::XML; ... 1;