use CGI; use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; use warnings; use threads; my $cgi = new CGI; print $cgi->header(); print < endhere my $n= threads->create('new1')->detach(); sleep(1); my $m= threads->create('new2')->detach(); sleep(1); 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