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