Index: trunk/ippScripts/scripts/phase2.pl
===================================================================
--- trunk/ippScripts/scripts/phase2.pl	(revision 11455)
+++ 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 );