# your code is:
our $cb = $frame->new_ttk__button(-text => "Calculate"); 
our $filename = $cb->getOpenFile(); 

##</code><code>##

our $cb = $frame->new_ttk__button(
               -text => "Calculate",  
               -command => sub{ our $filename = $cb->getOpenFile(); }
                );