use Tk;
use Tk::fileSelect;

my $test = "/";
my $mw = tkinit(-title=> 'test');
$FSref = $mw->FileSelect(-directory => $test);
MainLoop;