aboutsummaryrefslogtreecommitdiff
path: root/challenge-028/dave-cross/perl5/ch-2.pl
blob: f9b2c5789e0c23f9453ef2ab3e58a7f636d6aef4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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";
}