#!/usr/bin/perl -w 
$cat = 'junk.fld.orig';
open(OUT,">$cat") || die "cannot open $cat";
#
# Without this xfitfibs will never work
#
$line1 ="ra\tdec\tpa\tstart\tminutes\tr0\tr1\tr2\texptime\tnexp\tskyexp\trank\tpriority\tbinning\tfilter\tguides";
$field="--------\t";
$line2=$field ;
foreach ($k=0; $k<= 14; $k++) {
    $line2 = $line2.$field;
}
print OUT $line1,"\n",$line2,"\n";
#
# List of fields
#
$ra     = '14:14:54.5892';
$dec    = '52:07:42.112' ;
$pa     = ' 110'         ;
$start  = 'June 27 06:30:00 2006';
# This will contain total exposure time + overhead
$minutes ='' ;
# These are unknown at first but are calculated by xfitfibs
$r0     = '';
$r1     = '';
$r2     = '';
# Time per exposure and number of exposures
$exptime = '18' ;
$nexp    = '5'  ;
# No sky exposure
$skyexp  = ''   ;
$rank    = ''   ;
# priority of field in list 
$priority = '1' ;
# 
$binning  = ''  ;
%s\t%s\t%s\t%s\t%s\t",
		$ra, $dec, $pa, $start, $minutes,$r0, $r1, $r2,
		$exptime, $nexp, $skyexp, $rank, $priority, $binning,
		$filter, $guides);

   print OUT $line,"\n";
# 
close (OUT) ;
#
