Perl/Tk Utiliser Variable dans Sub

Je suis partie du fichier (pour compter les lignes de tous les fichiers .pl
d'un dossier et donne le résultat dans le fichier result.txt) suivant:

sub recupPages
{
my $nomFic = shift;
my $result = shift;

# Récupération des lignes du fichier
open(F,$nomFic);
open(SORTIE,">> $result");
$i = 0;
while(<F>)
{
$i ++;
}
print SORTIE " $nomFic $i\n";

close F;
close SORTIE;}

my $emplacement = "e:\\Dossier_travail\\stat\\";
my $ficResultat = "e:\\result.txt";
recupPages($_, $ficResultat) for glob 'e:\\Dossier_travail\\stat\\*.pl';



Après quoi je veux intégrer une interface en Perl/Tk pour pouvoir entrer le
répertoire dans lequel on souhaite effectuer le processus compter le nbre
de ligne/fichier. Ce qui donne pour l'instant:

#!/usr/bin/perl
use Tk;
$main = new MainWindow;
$main->title("Test 1");
$libelF=$main->Label(-text=>'Chemin:')->pack();
$montantF=$main->Entry(-textvariable=>\$nomFic)->pack();
$valid=$main->Button(-text=>'Ok',-cursor=>pirate,-command=>\&recupPages)-
>pack();
$fin=$main->Button(-text=>'Fermer',-command=>sub {exit})->pack();
MainLoop();

sub recupPages
{
my $rep= ">$nomFic";
my $result = shift;
# Récupération des lignes du fichier
open(F,'$nomFic');
open(SORTIE,">> $result");
$i = 0;
while(<F>)
{
$i ++;
}
print SORTIE " $nomFic $i\n";

close F;
close SORTIE;
}
my $emplacement = $nomFic;
my $ficResultat = "e:\\result.txt";
recupPages($_, $ficResultat) for glob '$nomFic';

Mais ca fonctionne pas! A priori, il ne veut pas prendre ma donnée $nomFic
pour l'utiliser dans mon sub! Je ne comprend pas! Merci de m'orienter un
peu.



PS: Ne faites pas attention a l'aspect graphique je m'en occuperais après!
;-)
De plus pour la recherche dans toute une arbo pour l'instant j'ai mis de
coté!