Index: trunk/ippScripts/scripts/detrend_norm_apply.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_norm_apply.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use PS::IPP::Metadata::Stats;
Index: trunk/ippScripts/scripts/detrend_norm_calc.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use IPC::Cmd qw( can_run );
Index: trunk/ippScripts/scripts/detrend_norm_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_norm_exp.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_process_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_process_exp.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_process_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_process_imfile.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_reject_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_reject_imfile.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_resid.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_resid.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_resid.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/detrend_stack.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_stack.pl	(revision 11484)
+++ trunk/ippScripts/scripts/detrend_stack.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/phase0_exp.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_exp.pl	(revision 11484)
+++ trunk/ippScripts/scripts/phase0_exp.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use Cache::File;
Index: trunk/ippScripts/scripts/phase0_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11484)
+++ trunk/ippScripts/scripts/phase0_imfile.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );
Index: trunk/ippScripts/scripts/phase2.pl
===================================================================
--- trunk/ippScripts/scripts/phase2.pl	(revision 11484)
+++ trunk/ippScripts/scripts/phase2.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use IPC::Cmd qw( can_run run );
Index: trunk/ippScripts/scripts/phase3.pl
===================================================================
--- trunk/ippScripts/scripts/phase3.pl	(revision 11484)
+++ trunk/ippScripts/scripts/phase3.pl	(revision 11492)
@@ -3,4 +3,10 @@
 use warnings;
 use strict;
+
+## report the program and machine
+use Sys::Hostname;
+my $host = hostname();
+print "\n\n";
+print "Starting script $0 on $host\n\n";
 
 use vars qw( $VERSION );