ch-2.pl « perl5 « dave-cross « challenge-028 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-028/dave-cross/perl5/ch-2.pl

blob: f9b2c5789e0c23f9453ef2ab3e58a7f636d6aef4 (plain)

#!/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";
}