#! /usr/bin/perl -w

use strict;
use warnings;
use diagnostics;

use Tk;
use Tk::FileSelect;

my $mw = MainWindow->new();
my $fs = $mw->FileSelect(-directory => '.', # Startordner
                         -verify => [-'d']); # nur Ordner dürfen ausgewählt werden
$fs->Show();

MainLoop;