#! /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
my $selected_dir = $fs->Show();
print $selected_dir,"\n";

MainLoop;