or download this
$InputDir = Win32::GUI::BrowseForFolder( -root => $TopDir, -includefil
+es => 1,
-title => 'Select directory for parameter file',
-text =>'text Selext directory for parameter file'
+,
-size => [50/100*$dw, 50/100*$dh], -addexstyle =>
+WS_EX_TOPMOST,);