my $parser = new XML::Parser(ProtocolEncoding=>"x-sjis-unicode");