$| = 1;
for (0..42) {
  print "Bearbeite Nr. $_\r";
  sleep 1;
}
print "\n";