use XML::Parser;

$xml = qq{<tag attr="xyz"/>};

print "original: $xml\n";

$parser = new XML::Parser( Style => 'Stream' );

print "parsed: ";
$parser->parse( $xml );
print "\n";

sub StartTag { print }