# change
my $butImageFile = $mw->Button(-text=>'Browse', -command=> sub { openImageFileDialog($entImageFile)}); 
# to
my $butImageFile = $mw->Button(
  -text=>'Browse', 
  -command=> sub {
    $ImageFilePath = $mw->getOpenFile(-title => 'Open Image File:'); 
  }
);