From e80efbe14698f5d07c680432e1ea515af8b45d03 Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Sun, 6 Oct 2019 15:23:14 +1000
Subject: Added ch-2 p5 and p6

---
 challenge-028/ruben-westerberg/perl5/ch-2.pl | 20 ++++++++++++++++++++
 challenge-028/ruben-westerberg/perl6/ch-2.p6 | 16 ++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100755 challenge-028/ruben-westerberg/perl5/ch-2.pl
 create mode 100755 challenge-028/ruben-westerberg/perl6/ch-2.p6

diff --git a/challenge-028/ruben-westerberg/perl5/ch-2.pl b/challenge-028/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..b018117250
--- /dev/null
+++ b/challenge-028/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use  Time::HiRes qw<usleep>;
+use POSIX qw<strftime>;
+use v5.26;
+$|=1;
+while (1) {
+	state $c=0;
+	if  (($c++ % 10) == 0) {
+		print "\x1b[2K";
+		 print "\x1b[1000D";
+		print strftime "%H:%M:%S", localtime;
+	}
+	usleep 100000;;
+	print "=";
+	
+}
+
+
diff --git a/challenge-028/ruben-westerberg/perl6/ch-2.p6 b/challenge-028/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..d58aa21261
--- /dev/null
+++ b/challenge-028/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6
+my $offset=0;
+#my @codes=("\x1b[{$offset}D"
+react { whenever Supply.interval(.1) {
+	print "=";
+} 
+	whenever Supply.interval(1) {
+		print "\x1b[2K";
+		 print "\x1b[1000D";
+		print DateTime.now.hh-mm-ss;
+	 }
+}
+
+
+
+
-- 
cgit