my $parser = XML::DOM::Lite::Parser->new();
    my $doc = $parser->parseFile("$file_name");

##</code><code>##

 sub dispose {
    my ($self) = @_;
    foreach (@{$self->childNodes}) {
        undef $_->{parentNode};
        undef $_->{ownerDocument};
	if (defined $_->{childNodes}) {
	    $_->decycle();
	}
    }
}