snip...
my @types =
       (["log files", [qw/.txt .log/]],
        ["All files",		'*'],
       );
$ml_filepath = $mw->getOpenFile(-filetypes => \@types) or return;