my $dirname=getcwd;
my $f = $mw->getOpenFile(-filetypes => $dtype,
                         -initialdir => $dirname);
my $d = $mw->chooseDirectory( -initialdir => $dirname);

$dirname looks like: //machine123/myshare$/report/data/01/