challenge-028/ruben-westerberg/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 "=";
	
}