Package foo
 sub create xml{
our $XmlWriterObject = new XML::Writer( DATA_MODE => 1, DATA_INDENT =>
+ 4, OUTPUT => $Output );
}

package Bar;

sub {
$Foo::XmlWriterObject->endTag("Config");
}