for(my $i = 0; $i <= 20000; $i++){
  printf "Bearbeite Nr: $i\r";
}
print "\n";