#!/usr/bin/perl
use warnings;
use strict;
use PDL;
use PDL::Graphics::PGPLOT;

my $a = rfits "m51_raw.fits";
my $flat = rfits "m51_flatfield.fits";
imag $flat;
<>;

my $gal = $a / $flat;

# !!!!!!!!!   this is line 18  !!!!!!!!!!!!!!!!!!!!!!
my $section =  $gal(337:357, 178:198 );

 imag $section; # It's the bright star
<>;
__END__

##</code><code>##


# pre:filter  line 18 is this:
#  my $section =  $gal(337:357, 178:198 );
#    imag $section; # It's the bright star

# post filter line 18 is this, and runs without "use PDL::Nice::Slice"
my $section =  $gal->nslice([337,357,1],[178,198,1]);
 imag $section; # It's the bright star