Fichier et répertoire

Bonjour,
j'ai un répertoire qui contient un autre répertoire et ce dernier contient mon fichier que je veux l'ouvrir j'ai pas arriver a trouver une fonction qui fait ca! voila ce que j'ai essayée:

chomp ($user_supplied_directory = <STDIN>);
opendir (DIR, $user_supplied_directory);
my @dir = readdir DIR ;

foreach (@dir) {
    if($_ =~ /my file.txt/)
    {
 print "yes i find it ";
    # Reads the content of the original file
    open(FILE, " $_ ");
 @tab= <FILE>;
  print @tab,"\n" ; 
    close FILE;
 }
} 

EDIT: Ajout de la coloration syntaxique.