# die weiteren Aktionen - hier das zählen
while (++$total_count < 100_000) {
    print "zaehle .....";
    print "total files: " . $total_count . "\r";
}
print "\n";