#! /usr/bin/env perl                                                                                                                                                       

use Carp;
use warnings;
use strict;

my $counter = 0;

foreach my $path_base (@ARGV) {
    print "INPUT${counter}  METADATA\n";
    print "   IMAGE           STR     ${path_base}.fits\n";
    print "   MASK            STR     ${path_base}.mask.fits\n";
    print "   VARIANCE        STR     ${path_base}.wt.fits\n";
    print "   PSF             STR     ${path_base}.psf\n";
    print "   SOURCES         STR     ${path_base}.cmf\n";
    print "   BKGMODEL        STR     ${path_base}.mdl.fits\n";
    print "END\n\n";
    $counter++;
}
