#!/star/Perl/bin/perl -w
use Astro::FITS::CFITSIO; 
require "check_status.pl";
my $file = @ARGV ? shift : 'm51.fits'; 
my $status = 0; 
my $fptr =Astro::FITS::CFITSIO::open_file($file,Astro::FITS::CFITSIO::READONLY(),$status); 
check_status($status) or die;
$fptr->read_key_str('WSA_MFID',$naxis1,undef,$status);
print "$naxis1";