$ttf_dir = 'C:\\WINNT\\Fonts\\';

$foo = $mw->getOpenFile( 
    -title            => 'Choose TrueType font',
    -initialdir       => $ttf_dir,
    -defaultextension => '.ttf',
);