use Tk;
use strict "vars";
use Tk::DirSelect;
my $initial_dir = "C:\\Temp";
my $mw;
$mw = MainWindow->new;
my $ds  = $mw->DirSelect(
	-directory => $initial_dir,
	-width => 100,
	-height => 25,
	-background => red
);
my $dir = $ds->Show();
print "dir <$dir>\n";
MainLoop;