Select Code to Download

error:not a Tk object
 Tk::die_with_trace at G:/Dwimperl/Perl/site/lib/Tk.pm line 251
...
Tk::Button::butUp at  G:/Dwimperl/Perl/site/lib/Tk.pm  line 175
<Button-Release1>

use Tk;
# Main Window
...
}
}