Tk::Error: Can't call method "destroy" without a package or object reference at ./Capture4.pl line 80.
 Tk callback for .frame.pane.frame.frame.button
 Tk::__ANON__ at /usr/lib/perl5/Tk.pm line 250
 Tk::Button::butUp at /usr/lib/perl5/Tk/Button.pm line 175
 <ButtonRelease-1>
 (command bound to event)