Select Code to Download

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

 sub dispose {
    my ($self) = @_;
    foreach (@{$self->childNodes}) {
...
    }
}