$index=0;

my $inputfile="perloutput";
my $endfile=".txt ";
my $smb=" ";
my $outputfile="output";
my $smb2="&";

while ($index<2)
{
   my $testpath="chirp_md5sum ";
   $testpath=$testpath.$inputfile.$index.$endfile.$smb.$outputfile.$index.$endfile.$smb2;
   chomp $testpath;
   print ("$testpath \n");

   $id=fork();

   if ($id == 0) {
   exec($testpath);
   exit();
  }
 $index++;
}

for ($count=0; $count<16; $count++)
{
        $num=wait();
        print "Wait: $num\n";
}