#!/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 = -m PROTMIXMTREVF -s ".$commandLine." -b ".$b." -n ".$runID.$i."\nQueue\r\r";
       
    open (F, ">>rep.All"); 
    print F $cmd;
    close (F);
  }