Index: /branches/eam_branch_20080408/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/detrend_norm_exp.pl	(revision 17434)
+++ /branches/eam_branch_20080408/ippScripts/scripts/detrend_norm_exp.pl	(revision 17435)
@@ -35,5 +35,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op);
+my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op, $save_temps);
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -47,4 +47,5 @@
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
+	   'save-temps'        => \$save_temps, # Save temporary files?
 	   ) or pod2usage( 2 );
 
@@ -119,6 +120,6 @@
 }
 
-my ($list1File, $list1Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b1.list.XXXX", UNLINK => 1 );
-my ($list2File, $list2Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b2.list.XXXX", UNLINK => 1 );
+my ($list1File, $list1Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b1.list.XXXX", UNLINK => !$save_temps );
+my ($list2File, $list2Name) = tempfile( "$camera.$det_type.norm.$det_id.$iter.b2.list.XXXX", UNLINK => !$save_temps );
 foreach my $file (@$files) {
     print $list1File ( $ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");
Index: /branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl	(revision 17434)
+++ /branches/eam_branch_20080408/ippScripts/scripts/detrend_process_exp.pl	(revision 17435)
@@ -36,5 +36,5 @@
 
 my ( $det_id, $exp_id, $det_type, $exp_tag, $camera, $outroot, $dbname, $reduction, $verbose, $no_update,
-     $no_op );
+     $no_op, $save_temps );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -49,4 +49,5 @@
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
+    'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
 
@@ -123,6 +124,6 @@
 
 # File lists for the two binnings
-my ($list1File, $list1Name) = tempfile( "$exp_tag.detproc.$det_id.b1.list.XXXX", UNLINK => 1 );
-my ($list2File, $list2Name) = tempfile( "$exp_tag.detproc.$det_id.b2.list.XXXX", UNLINK => 1 );
+my ($list1File, $list1Name) = tempfile( "$exp_tag.detproc.$det_id.b1.list.XXXX", UNLINK => !$save_temps );
+my ($list2File, $list2Name) = tempfile( "$exp_tag.detproc.$det_id.b2.list.XXXX", UNLINK => !$save_temps );
 foreach my $file (@$files) {
     print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");
Index: /branches/eam_branch_20080408/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/detrend_reject_imfile.pl	(revision 17434)
+++ /branches/eam_branch_20080408/ippScripts/scripts/detrend_reject_imfile.pl	(revision 17435)
@@ -44,5 +44,5 @@
 # parse the command-line options
 my ( $det_id, $iter, $exp_id, $exp_tag, $det_type, $camera, $filter, $reject, $outroot, $dbname, $reduction,
-     $verbose, $no_update, $no_op );
+     $verbose, $no_update, $no_op, $save_temps );
 GetOptions(
 	   'det_id|d=s'        => \$det_id,
@@ -60,4 +60,5 @@
 	   'no-update'         => \$no_update,
 	   'no-op'             => \$no_op,
+	   'save-temps'        => \$save_temps, # Save temporary files?
 	   ) or pod2usage( 2 );
 
@@ -165,6 +166,6 @@
 
 # XXX in debug mode, unlink = 0
-my ($list1File, $list1Name) = tempfile( "$exp_tag.detresid.$det_id.$iter.b1.list.XXXX", UNLINK => 1 );
-my ($list2File, $list2Name) = tempfile( "$exp_tag.detresid.$det_id.$iter.b2.list.XXXX", UNLINK => 1 );
+my ($list1File, $list1Name) = tempfile( "$exp_tag.detresid.$det_id.$iter.b1.list.XXXX", UNLINK => !$save_temps );
+my ($list2File, $list2Name) = tempfile( "$exp_tag.detresid.$det_id.$iter.b2.list.XXXX", UNLINK => !$save_temps );
 foreach my $file (@$files) {
     print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $file->{path_base}, $file->{class_id} ) . "\n");
Index: /branches/eam_branch_20080408/ippScripts/scripts/ds9_cmf_regions.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/ds9_cmf_regions.pl	(revision 17434)
+++ /branches/eam_branch_20080408/ippScripts/scripts/ds9_cmf_regions.pl	(revision 17435)
@@ -21,4 +21,5 @@
      $colour,			# Region colour
      $radius,			# Radius for circle
+     $save_temps
      );
 
@@ -33,4 +34,5 @@
 	   'colour=s' => \$colour,
 	   'radius=f' => \$radius,
+	   'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
 
@@ -61,5 +63,5 @@
 $fits->close_file($status);
 
-my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => 1 );
+my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => !$save_temps );
 for (my $i = 0; $i < $numRows; $i++) {
     print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) .
Index: /branches/eam_branch_20080408/ippScripts/scripts/ipp_mops_translate.pl
===================================================================
--- /branches/eam_branch_20080408/ippScripts/scripts/ipp_mops_translate.pl	(revision 17434)
+++ /branches/eam_branch_20080408/ippScripts/scripts/ipp_mops_translate.pl	(revision 17435)
@@ -20,4 +20,5 @@
      $skycell,			# Skycell file with WCS
      $output,			# Name of output file
+     $save_temps
      );
 
@@ -27,4 +28,5 @@
 	   'skycell=s' => \$skycell,
 	   'output=s'  => \$output,
+	   'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
 
@@ -262,5 +264,5 @@
 $fits->read_col($yType, $yCol, 1, 1, $numRows, 0, $y, undef, $status) and check_fitsio($status);
 
-my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => 1 );
+my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => !$save_temps );
 for (my $i = 0; $i < $numRows; $i++) {
     print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) .