#!/usr/bin/perl

use strict;
use warnings;

my $count=10;
$|=1;

print "Deine Zeit Läuft ab!\n";
printf "Countdown:%02u",$count;

for my $c (reverse(0..$count))
{
  sleep(1);
  printf "\x08\x08%02u",$c; # letze beiden Zeichen löschen und neu schreiben.
}
print "\nBoooooom!!\n";