perl thread

 #!/usr/local/bin/perl
 use threads;   

 @domain   =   ("tom.com",   "chinadns.com",   "163.com",   "aol.com");
 for ($i=;$i<;$i++)
 {
     print   $i.'.'.$domain[$i].'     ';
 }
 print   "\n";   

 my   $thr0   =   threads->new(\&checkwhois,   '0',   $domain[]);
 my   $thr1   =   threads->new(\&checkwhois,   '1',   $domain[]);
 my   $thr2   =   threads->new(\&checkwhois,   '2',   $domain[]);
 my   $thr3   =   threads->new(\&checkwhois,   '3',   $domain[]);   

 sub   checkwhois()
 {
     my ($l,$r)=@_;
     my $i=;
     while($i<)
     {
           $i*$i;
           $i++;
     }
     print   "done  --$l\t\n";
     print   $l.$r."   query   successful!   \n";
 }

 $thr0->join;
 $thr1->join;
 $thr2->join;
 $thr3->join;