#!/usr/bin/perl

$diro = `pwd`;
chop($diro);

#--------------------------------------------------------
for($i=1; $i<=$ARGV[0]; $i++) {
  $nam0=NODE_.$i;
  chdir ($nam0);
  system("condor_submit run.meta");
  chdir ("..");

}
system("condor_q");