- Added timing to script.

1 files changed, 10 insertions, 0 deletions

diff --git a/script/find-the-winner b/script/find-the-winner
index d14d18dfcf..4a6c6f39f1 100755
--- a/script/find-the-winner
+++ b/script/find-the-winner
@@ -90,3 +90,13 @@ sub read_data {
 package main;
 
 PerlWeeklyChallenge->new_with_options->run;
+
+END {
+    my $time = time - $^T;
+    my $mm   = $time / 60;
+    my $ss   = $time % 60;
+    my $hh   = $mm / 60;
+    $mm = $mm % 60;
+
+    print sprintf("The program ran for %02d:%02d:%02d.\n", $hh, $mm, $ss);
+}