Tk::Error: Can't call method "get" on an undefined value at C:\Perl\programs\cash_counter.pl line 167.
 <Double-Button-1>
 (command bound to event)