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