use strict;
use Tk;

sub gotClick {
   print "got click\n";
}

my $main = new MainWindow;

# This one gets wiped out.
$main->bind('<ButtonRelease-1>' => sub { gotClick() });

my $combo = $main->BrowseEntry();
$combo->pack();

Tk::MainLoop();

##</code><code>##

  BrowseEntry.pm:78:    $b->toplevel->bind('<ButtonRelease-1>',[$w,'ButtonHack']);