use Tk;
use strict "vars";
use Tk::DirSelect;
my $mw;
$mw = MainWindow->new;
my $ds  = $mw->DirSelect(
	-width => 100,
	-height => 25,
	-background => red
);
my $dir = $ds->Show();
MainLoop;