apps/scan.pl: print current time at startup

diff --git a/apps/scan.pl b/apps/scan.pl
index 4c15cf877bc761097f9e13650179d4c0ab22a75f..33e1290a98c00b2f30167bd497882968b33e54d8 100755 (executable)
--- a/apps/scan.pl
+++ b/apps/scan.pl
@@ -30,6 +30,12 @@ sub main()
        }
        my $inbound = $ARGV[$argidx+1];
 
+       # print timestamp
+       my @ts = localtime(time);
+       my $ts = sprintf("%04d-%02d-%02d %02d:%02d:%02d",
+               $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+       say basename($0).": Start at $ts";
+
        my $fails = dispatch($inbound);
        say "Finished with $fails errors.";