or download this
use Win32::FileOp;
$fileDialogParameters{title} = q(Open quota spreadsheet(s));
$fileDialogParameters{dir} = q(c:\\);
$fileDialogParameters{options} = $OFN_ALLOWMULTISELECT; #also tried OF
+N_ALLOWMULTISELECT
@fileName = OpenDialog \%fileDialogParameters;