#!/usr/bin/perl
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use warnings;
use threads;
my $cgi = new CGI;
print $cgi->header();
print <<"endhere";
endhere
my $n=threads->create(\&new1);
my $m=threads->create(\&new2);
sleep(1);
my @data1 = $n->join;
print @data1 . "\n";
my @data2 = $m->join;
print @data2 . "\n";
#$n->detach;
#$m->detach;
sub new1
{
my $i=0;
while(1)
{
print "IIIII $i
\n";
$i++;
last if($i==25);
sleep(1);
}
}
sub new2
{
my $i=0;
while(1)
{
print "JJJJJ $i
\n";
$i++;
last if($i==25);
sleep(1);
}
}
print <<"endhere";
endhere