use encoding shiftjis; #
use XML::Parser;
my $p=new XML::Parser(Style=>'Debug');