foreach(0..9){
   my $cmd="perl get.pl &";
   my $rst = readpipe($cmd);
}