Try replacing:
$top_f->destroy if Tk::Exists($top_f); with $top_f->packForget( ) if $top_f->ismapped; [download]
In reply to Re: Perl TK BrowseEntry error by ldln in thread Perl TK BrowseEntry error by fast