Index: /trunk/ippScripts/scripts/detrend_norm_apply.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -145,5 +146,5 @@
     my $exit_code = shift;	# Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and $class_id and not $no_update) {
 	my $command = "$dettool -addnormalizedimfile -det_id $det_id -iteration $iter -class_id $class_id -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_norm_calc.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -200,5 +201,5 @@
     my $exit_code = shift;	# Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and not $no_update) {
 	my $command = "$dettool -addnormalizedstat -det_id $det_id -iteration $iter -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -198,5 +199,5 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and not $no_update) {
 	my $command = "$dettool -addprocessedimfile -det_id $det_id -iter $iter -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -208,5 +209,5 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $exp_tag and not $no_update) {
 	my $command = "$dettool -addprocessedexp -det_id $det_id -exp_tag $exp_tag -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_process_imfile.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
Index: /trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -314,5 +315,5 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and not $no_update) {
 	my $command = "$dettool -adddetrunsummary -det_id $det_id -iteration $iter -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 13732)
@@ -7,4 +7,5 @@
 #    not at the imfile level. 
 
+use Carp;
 use warnings;
 use strict;
@@ -512,5 +513,5 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and $exp_tag and not $no_update) {
 	my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag -code $exit_code";
Index: /trunk/ippScripts/scripts/detrend_resid.pl
===================================================================
--- /trunk/ippScripts/scripts/detrend_resid.pl	(revision 13731)
+++ /trunk/ippScripts/scripts/detrend_resid.pl	(revision 13732)
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -213,5 +214,5 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and $exp_tag and not $no_update) {
 	my $command = "$dettool -addresidimfile -det_id $det_id -iteration $iter -exp_tag $exp_tag -class_id $class_id -code $exit_code";