#!/usr/bin/perl -w 
$cat = 'junk.cat';
open(OUT,">$cat") || die "cannot open $cat";
# Without this xfitfibs will never work
#
$line1= "May\t02\t06:00:00\t2006";
$line2= "ra\tdec\tobject\trank\ttype\tmag\tf24";
$line3= "--------------\t--------------\t---------\t-----\t----------\t-------\t-----";
print OUT $line1,"\n",$line2,"\n",$line3,"\n";
#
$rahms = '14:12:40.506';
$decdms = '52:13:48.79';
$id     = 'SDSS_J141240.50+521348.7';
$rank   = 1 ;
$type   = 'TARGET';
$rmag   = 17.38   ;
$line = sprintf("%12s\t%12s\t%25s\t%4d\t%6s\t%5.2f",
		$rahms, $decdms, $id,$rank, $type,$rmag);
print OUT $line,"\n";

close (OUT) ;
#
