use Tk::FileSelect;

my $main = Tk::MainWindow->new;
my $fsRef = $main->FileSelect(-directory => '/',
                              -selectmode => 'extended');
my @files = $fsRef->Show;
print foreach @files;