stefan@static:~/programmierung/perl/lagerverwaltung$ perl lager.pl
Tk::Error: Can't call method "destroy" without a package or object reference at lager.pl line 95.
 [\&main::__ANON__]
 Tk callback for .frame.frame.button14
 Tk::__ANON__ at /usr/lib/perl5/Tk.pm line 225
 Tk::Button::butUp at /usr/lib/perl5/Tk/Button.pm line 111
 (command bound to event)