use strict;
use IO::Handle;
print "Fortschritt: ";
for (0..9) {
  print "$_";
  IO::Handle::flush('STDOUT');
  sleep 1;
  print "\b";
}
print "fertig!\n";