From 02748a2ded7327eb2312cddad4870403f820e70e Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 22 Jun 2019 08:39:56 +0100
Subject: - Added timing to script.

---
 script/find-the-winner | 10 ++++++++++
 1 file changed, 10 insertions(+)

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);
+}
-- 
cgit