#!/usr/bin/perl -w
use threads;
my @th;
for($i=0;$i<10;$i++){
    push @th, threads->new(\&sub2,$i) ;
}

for($i=0;$i<10;$i++) {
    $th[$i]->join;
    #$result = $th[$i]->eval;
    $th[$i]->detach;
}

sub sub2 :locked {
    my @para = @_;
    my $t = $_[0];
    my $temp="test";
    my $user=$temp.$t;
    if (!defined($pid = fork)) {
        die "Cannot fork\n";
    } elsif ($pid == 0 ) {
        exec("echo $user");
    } else {
        waitpid($pid,0);
    }
}