Select Code to Download

use XML::Parser;
use CGI;
...
my $p1 = new XML::Parser(Style => 'Debug');
$p1->parse('<foo id="hi">Hello world</foo>');