diff options
| -rwxr-xr-x | script/find-the-winner | 10 |
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); +} |