#!/Perl/bin/perl

use strict;
use Tk;
use Tk::DirSelect;

my $mw = Tk::MainWindow->new();

  my $ds  = $mw->DirSelect();
  my $dir = $ds->Show();
  
Tk::MainLoop;