bonjour, je veux creer un menu qui me permet de selectionner un fichier  
voici mon code :
 
[pl]
 
my $menu_bar = $fenetre->Menu( -type => "menubar", );
$fenetre->configure( -menu => $menu_bar, );
 
my $menu_ouvrir = $menu_bar->cascade( -label => 'Ouvrir', -tearoff => 0,
 -foreground => 'black',
  -font       => '{Courrier New} 10 {bold}',
 
 -command =>  sub  {
  my $open = $fenetre->getOpenFile(
 -defaultextension => '.txt',  
 -initialdir => '/home/hp/Bureau/Master',
 -multiple   => 1,);
print "$open\n" ;
}
);
 
[/pl]
 
pkoi en cliquant sur ouvrir rien ne se passe???

C'est parce que tu as confondu
menu_bar->cascade qui definit un menu avec des items de sous menus associés aux commandes
et
menu_bar->command qui définit un bouton de la menu bar avec commande associée
http://perl.developpez.com/faq/tk/?page=Menus
 
avec
my $menu_ouvrir = $menu_bar->command( -label => 'Ouvrir',  
 -foreground => 'black',
  -font       => '{Courrier New} 10 {bold}',
 
 -command =>  sub  {
......
chez moi ça marche.
 
A+,