#!/usr/bin/perl

use strict;
use warnings;
 
use threads;
use XML::Twig;

foreach my $i (1..2) 
  { warn "creating thread $i\n"; 
    my $thread = threads->new(\&create_twig); 
    $thread->join;
    sleep 1; 
  } 

sub create_twig
  { warn "  creating twig\n"; 
    my $twig = XML::Twig->new( protocol_encoding=>"x-sjis-unicode")
                        ->safe_parse( '<doc/>'); 
  }

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
 
use threads;
use XML::Parser;

foreach my $i (1..3) 
  { warn "creating thread $i\n"; 
    my $thread = threads->new(\&create_parser); 
    $thread->join;
    sleep 1; 
  } 

sub create_parser
  { warn "  creating parser\n"; 
    my $parser = XML::Parser->new( ProtocolEncoding=>"x-sjis-unicode");
    $parser->parse( '<doc/>'); 
  }