Select Code to Download

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

#!/usr/bin/perl -w

...
$fn ->destroy;
}