Merge pull request #718 from jmaslak/joelle-28-2-2

Joelle's solution to 28.2 in P5

1 files changed, 8 insertions, 0 deletions

diff --git a/challenge-028/joelle-maslak/perl5/ch-2.pl b/challenge-028/joelle-maslak/perl5/ch-2.pl
new file mode 100755
index 0000000000..fd12303a28
--- /dev/null
+++ b/challenge-028/joelle-maslak/perl5/ch-2.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use v5.10;
+use strict;
+use warnings;
+
+# Sorry, couldn't resist doing *something* more than the more obvious
+# solutions...
+say join( ":", map { sprintf "%02d", $_ } reverse( (localtime)[ 0 .. 2 ] ) );