tk choose directory

use strict;
use warnings;
use Tk;

my $mw = tkinit;
my $Directory = $mw->chooseDirectory(
  -title      => "title",
  -initialdir => "E:/Spoken/ENGLISH-FOR-LOW-LEVELS/ENGLISH-FOR-LOW-LEVELS",
  -mustexist  => 1,
);

MainLoop;

print $Directory;