{filelink=15267#}

#!/usr/local/bin/perl

$dir = "c:/";
print "Voici les fichier textes de $dir:\n";
opendir(BIN, $dir) or die "Impossible d'ouvrir le dossier $dir: $!";
while( $fichier = readdir BIN) {
    print "$fichier\n" if -T "$dir/$fichier";
}
closedir(BIN);