use Term::ProgressBar;

Findfile sucht nur "\d*.txt" - bzw gibt eine Liste zurück, wo nur diese Dateien enthalten sind.
my $Dateienanzahl = AnzahlDerDateienVonFindFile
my $Zaehler=1;
my $progress = Term::ProgressBar->new ({count => $Dateienanzahl ,name => 'Bearbeite'});
foreach my $Datei (@dateien) { #@dateien ist Liste von Find::File
    $progress->update($Zaehler);
    &Umwandeln;
    $Zaehler++;
}