my $twig = XML::Twig->new(twig_handlers => {a'=>  \&Test
                     );
# Parse the file
$twig->parsefile($XmlFile);

# Handler sub routine
sub Test {
    my ($parser, $element) = @_;
    
         # This prints element <a> along with its contents to some out
+put file
         $element->print(\*OP);

    # However What I really want done over here is  have element <a> a
+long with its subelements and text be copied to another variable inst
+ead of being printed on screen
        
}
[download]

Problem: What I really want done over here is have element along with its subelements and text be copied to another variable instead of being printed on screen

Something like

$ElementA .= $element->print;

Pls advice. Thanks,