challenge-028/lars-thegler/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/env perl

# Write a script to display Digital Clock. Feel free to be as creative as you
# can when displaying digits. We expect bare minimum something like “14:10:11”.

use Modern::Perl;
use Time::Piece;

$|++;

while (1) {
    print "\r",localtime->datetime;
    sleep 1;
}