#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
use Tk::Tree; 
use File::Find;  
 
my $root = '//srv0c001/io$/'; 
my @aFolders;  
 
# Create Gui 
my $mw = MainWindow -> new; 
my $text = 'Doubleclick or <Enter> line'; 
$mw -> Label (-textvariable => \$text) -> pack (-side => 'top'); 
my $tree = $mw -> Tree (-command => sub {$text = shift}, -width => 30, -height => 20) -> pack (-anchor => 'nw');  
 
# Search for Subdirectories 
find(\&wanted, $root); 
@aFolders = sort(@aFolders);  
 
# add directories to tree 
foreach(@aFolders) 
{ 
my @t = split (/\./, $_); 
$tree->add($_, -text => $t[-1]); 
}  
 
$tree->autosetmode();  
 
$mw -> Button (-text => 'Exit', -command => sub {exit}) -> pack ();  
 
MainLoop;  
 
sub wanted { 
if (-d) { 
$File::Find::name =~ s/.*io$\/?//g; 
$File::Find::name =~ s/\//\./g; 
if ($File::Find::name ne '') { 
push(@aFolders, "$File::Find::name"); 
} 
} 
}