Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $t= XML::Twig->nparse( $xml_string);
my $elem= $t->getElementById( 'test');
$elem->print;

#!/usr/bin/perl -w
...
my $t= XML::Twig->new->parse_html( $html_string);
my $elem= $t->getElementById( 'test');
$elem->print;