Select Code to Download

#!/usr/bin/perl

use strict;
...
    my $twig = XML::Twig->new( protocol_encoding=>"x-sjis-unicode")
                        ->safe_parse( '<doc/>'); 
  }

#!/usr/bin/perl

use strict;
...
    my $parser = XML::Parser->new( ProtocolEncoding=>"x-sjis-unicode")
+;
    $parser->parse( '<doc/>'); 
  }