#!/usr/bin/perl

use Tk;
use Tk::FileSelect;
use strict;
use warnings;

my $mw = new MainWindow();
my $fs;
my $btn = $mw->Button( -text => 'Durchsuchen', -command => sub { $fs = $mw->FileSelect(-directory => '.', -verify    => ['-d']); print $fs->Show;  } )->pack(); 

MainLoop;