[Perl/Tk] Utilisation de getOpenFile

Bonjour ,
Je veux à l'aide d'un menu ouvrir selectionner un fichier et l'afficher
voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
my $menu_bar = $fenetre->Menu( -type => "menubar", );
$fenetre->configure( -menu => $menu_bar, );
my $menu_ouvrir = $menu_bar->cascade( -label => 'Ouvrir', -tearoff => 0,
 -foreground => 'black',
 -command =>  \&open_file,
  -font       => '{Courrier New} 10 {bold}', );
$menu_ouvrir->separator;
 
 
sub open_file {
  my $open = $fenetre->getOpenFile(
                              -defaultextension => '.txt'
  -initialdir => "/home/hp/Bureau/Master",
  -multiple   => 1,);
 
}

Alors pourquoi quand je clic sur e menu ouvrir rien ne se passe