use strict;
use Tk;
require Tk::BrowseEntry;

my $mw = MainWindow->new;
my $b1 = $mw->BrowseEntry()->grid();
$b1->gridRemove;
MainLoop;