2 files changed, 36 insertions, 0 deletions
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;
+	 }
+}
+
+
+
+