Index: /trunk/tools/runcameraexp.pl
===================================================================
--- /trunk/tools/runcameraexp.pl	(revision 29418)
+++ /trunk/tools/runcameraexp.pl	(revision 29419)
@@ -15,5 +15,5 @@
 
 my $dbname = "gpc1";
-my ($cam_id, $update, $redirect, $pretend, $no_verbose);
+my ($cam_id, $update, $redirect, $save_temps, $pretend, $no_verbose);
 
 GetOptions(
@@ -21,4 +21,5 @@
     'pretend'           => \$pretend,
     'redirect-output'   => \$redirect,
+    'save-temps'        => \$save_temps,
     'update'            => \$update,
     'dbname=s'          => \$dbname,
@@ -67,4 +68,5 @@
 $command .= " --dvodb $dvodb" if $dvodb and ($dvodb ne "NULL");
 $command .= " --redirect-output" if $redirect or $update;
+$command .= " --save-temps" if $save_temps;
 $command .= " --no-update" unless $update;
 $command .= " --verbose" unless $no_verbose;
Index: /trunk/tools/runwarpskycell.pl
===================================================================
--- /trunk/tools/runwarpskycell.pl	(revision 29418)
+++ /trunk/tools/runwarpskycell.pl	(revision 29419)
@@ -16,5 +16,5 @@
 
 my $dbname = "gpc1";
-my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend);
+my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend, $save_temps);
 
 GetOptions(
@@ -27,4 +27,5 @@
     'dbname=s'          => \$dbname,
     'no-verbose'        => \$no_verbose, 
+    'save-temps'        => \$save_temps,
 ) or pod2usage( 2 );
 
@@ -78,4 +79,5 @@
 $command .= " --reduction $reduction" if $reduction and ($reduction ne "NULL");
 $command .= " --redirect-output" if $redirect;
+$command .= " --save-temps" if $save_temps;
 $command .= " --no-update" unless $update;
 $command .= " --verbose" unless $no_verbose;