#!/usr/local/bin/perl
#
# rename series of frames
#
if ($#ARGV != 2) 
  {
    print "usage: \"raxml-parameters\" runID numberOfBootstraps\n";
    exit;
  }

$commandLine        = $ARGV[0];
$runID              = $ARGV[1];
$numberOfBootstraps = $ARGV[2];



for ($i=0; $i < $numberOfBootstraps; $i++) 
  {  
    $b = int(rand(1000000000));
    
    $cmd = "arguments =".$commandLine." -b ".$b." -n ".$runID.$i."\n"."Queue"."\n"."\n";
    open (F, ">>represult10"); 
    print ($cmd);
    print F $cmd;
    close (F);
  }
