Select Code to Download

sub meter{
    
...
$metw->Button(-text=>'Print receipt',-background=>'blue',-command=>\&m
+eter_fwrite_print)->pack(-side=>'top',-pady=>2);
   
}

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