use strict;
use warnings;

require Tk;

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

    my $dir = $mw->chooseDirectory(-initialdir => '~',
                                   -title => 'Choose a folder');
    if (!defined $dir) {
        print "No directory selected";
    } else {
        print "Selected $dir";
}

Tk::MainLoop();