use blib;
use Image::DS9;
use PDL;
use Astro::FITS::CFITSIO::Simple qw[ rdfits ];
$ds9 = Image::DS9->new( { Server => 'test' } );
$ds9->frame( 'new' );
$i = rdfits( 'm31.fits.gz' );
$ds9->array( $i );
use Data::Dumper;
print Dumper scalar $ds9->pan( 'physical' ), "\n";