erreur de segmentation perl Tk gedit

[campos]

bonjour,
Permettez-moi de vous transmettre un script perl-Tk qui fonctionne sans 
problème sur warty, hoary, debian sarge mais renvoie une erreur de 
segmentation à la sortie de la fenêtre gedit.
[code]
#!/usr/bin/perl -w
#

use Tk;
$mwfichier = MainWindow->new();
$mwfichier->title("Gestion des fichiers ");

#####
$cadre = $mwfichier->Frame->pack(-side => 'top',
                          -fill => 'x');
$cadre ->Label(-text => "Fichier à éditer : ")->pack(
-side=> 'left',
-anchor=>'w'
);
$cadre->Entry(-textvariable=> \$idfichier, -width =>'11'
                  )->pack(
-side=> 'left',
-anchor=>'w',
-expand => 1);
#####

####
$cadre->Button(-text => "Editer",
               -command => \&okedit )->pack(-side => 'left',
                         -fill => 'x'
                                                );

MainLoop;

sub okedit {
system("gedit","$idfichier");
}
[\code]

Vos lumières me seraient précieuses.
bien à vous
hervé