Select Code to Download

my $time = sprintf '%02d0%02d0%02d', (localtime)[2, 1, 0];
for my $mask (8, 4, 2, 1) {
...
    print "\n\n";
}
print "   HH HH    MM MM    SS SS\n";

#!/usr/local/bin/perl -w
my $old = '';
...
    print "   HH HH    MM MM    SS SS\n";
    sleep 1;
}