#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::FileSelect;

my $top = new MainWindow;
my $entry = $top->Entry()->pack(-side => 'left');
my $fs = $top->FileSelect(-verify => [qw/-d/]);
my $dir = $fs->Show();
$entry->insert('end',$dir);
MainLoop();