$ ./bind_test.pl
 at c:/Perl/site/lib/Tk.pm line 228.