Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 16563)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 17520)
@@ -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");