#!/usr/bin/perl
#
# create a bunch of files with numbers in their names
#    (which we will have to rename later)
#
# MWR 9/14/2015

$debug = 1;

$first = 1;
$last = 123;
$prefix = "IMAGE-SEPT-14-2015-";

for ($i = $first; $i <= $last; $i++) {

   $name = sprintf "%s%d.fits", $prefix, $i;
   if ($debug > 0) {
     printf " next is %s \n", $name;
   }

   open(FILE, ">$name") || die("can't open file $name");
   print FILE " %d \n", $i;
   close(FILE);


}

exit 0;

