#!/usr/bin/perl -w
  use strict;
  use PDL;    
  use PDL::IO::FITS; 
  my $test = "This is a test and I hope it works.";
  my $pos4 = index($test,"test");
  print "pos4 = $pos4\n";
  exit(0);