my $filnam = $mw->getOpenFile();
    return unless $filnam ;
    use Encode;
    $filnam = encode( 'iso-8859-1', $filnam );