#!/usr/bin/perl
my $totalJobs = 1000;
my $maxTries  = 1000000;
my $increment = int($maxTries/$totalJobs);
my $count     = 0;
while($count < $totalJobs) {
  $count++;
  my $tries = int(10 + $count * $increment);
  system("sed s/TRIES/$tries/g CondorCalcPi.template > CondorCalcPi");
  system("condor_submit CondorCalcPi");
}
exit;

