use Tk;

my $mw = MainWindow->new;


$entree_rechercher =  $mw->Entry(-width => 20, -textvariable => \$rechercher )->pack();

MainLoop;