From 7ac647c3bfa545bbb41bd49a0ce9cf3ab34fb82b Mon Sep 17 00:00:00 2001
From: Dave Cross <d.cross@fairfx.com>
Date: Tue, 1 Oct 2019 14:58:31 +0100
Subject: Challenge 28 - Dave Cross

---
 challenge-028/dave-cross/perl5/ch-1.pl | 19 +++++++++++++++++++
 challenge-028/dave-cross/perl5/ch-2.pl | 13 +++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 challenge-028/dave-cross/perl5/ch-1.pl
 create mode 100644 challenge-028/dave-cross/perl5/ch-2.pl

diff --git a/challenge-028/dave-cross/perl5/ch-1.pl b/challenge-028/dave-cross/perl5/ch-1.pl
new file mode 100644
index 0000000000..5ae77b6180
--- /dev/null
+++ b/challenge-028/dave-cross/perl5/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use File::Basename;
+
+@ARGV or die 'Usage: ', basename($0), " [list of filenames]\n";
+
+for (@ARGV) {
+  if (-T) {
+    say "$_ looks like a text file";
+  } elsif (-B) {
+    say "$_ looks like a binary file";
+  } else {
+    say "$_ looks a bit weird";
+  }
+}
diff --git a/challenge-028/dave-cross/perl5/ch-2.pl b/challenge-028/dave-cross/perl5/ch-2.pl
new file mode 100644
index 0000000000..f9b2c5789e
--- /dev/null
+++ b/challenge-028/dave-cross/perl5/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Time::Piece;
+
+STDOUT->autoflush(1);
+
+while (1) {
+  print localtime->strftime('%H:%M:%S');
+  sleep 1;
+  print "\b\b\b\b\b\b\b\b";
+}  
-- 
cgit