#!/usr/bin/perl

use strict;
use warnings;

my $count = 10;

while ($count--) {
        system("clear");
        print ("$count\n");
        sleep(1);
        if ($count == 1) {
               
 print "Boom\n";
               
 exit 0;
        }
}

#!/usr/bin/perl
use strict;
use warnings;
$|++;
my $count = 10;

while ($count--) {
  print "\r$count";
  sleep(1);
  if ($count == 1) {
               print "Boom\n";
               exit 0;
   }
}

-------------------------------------------------------------
|Zeit bis boom: $counter  (Feststehend)
-------------------------------------------------------------
|Output1   (ab hier wird "normal" der output abgesetzt)
|Output2
|Output3
|Output4
|usw....
|-------------------------------------------------------------

for my $counter (reverse 0..10){ ... }

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