#!/star/Perl/bin/perl -w
use warnings;
use CGI;
use CGI::Carp;
require 'cgiSubs.pl';
require 'server.pl';
$mfid=&getKeyVal('/home/mar/wsa/G.fits','WSA_MFID');
print "$mfid \n";