my $loadDialog = $mw->FileDialog(-Title => 'Verzeichnis auswaehlen',
  -Create => 0,
  -SelDir => 1,
  -Path   => $inputDir,
  -FPat   => '*.pl *.cgi *.pm *.tmpl',
  -DirLBCaption => 'Verzeichnisse:',
  -FileLBCaption => 'Dateien: ',
  -FileEntryLabel => 'Datei: ',
  -PathEntryLabel => 'Pfad: ',
  -FltEntryLabel => 'Filter: ',
  -ShowAllLabel => 'Alle anzeigen',
);
$inputDir = $loadDialog->Show(-Horiz => 1);
unless (defined($inputDir) and -d $inputDir) {
  die sprintf("Fehler: %s\n",
    defined($inputDir) ? $inputDir . " ist kein Verzeichnis" :
    'kein Verzeichnis ausgewaehlt');
}