my @dat = $mw->getOpenFile(-multiple => 1); print scalar(@dat) . " Dateien gewählt.\n";