Changeset 11492 for trunk/ippScripts/scripts/phase0_imfile.pl

Timestamp:

Jan 31, 2007, 12:04:50 PM (19 years ago)

Author:

eugene

Message:

adding program/host info

File:

• trunk/ippScripts/scripts/phase0_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -3 +3 @@
 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 );