Index: trunk/ippScripts/scripts/dist_cleanup.pl
===================================================================
--- trunk/ippScripts/scripts/dist_cleanup.pl	(revision 26096)
+++ trunk/ippScripts/scripts/dist_cleanup.pl	(revision 27718)
@@ -8,6 +8,7 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );