#!/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/>'); 
  }