if ($tk{dir_tree}-> chdir ($dr{path}))
{
	$tk{dir_tree}-> delete('all');
	ShowServer($dr{path});
}
else
{
	Win32::MsgBox(“$^E”);
}

##</code><code>##

require 5.006;

use strict;
use warnings 'all';

use Tk 800.005;
use Tk::TList;
use Tk::Frame;
use Tk::DirTree;
use Tk::Adjuster;
use Tk::Scrollbar;

use Win32;
use Win32::NetAdmin;
use Win32::AdminMisc;
use Win32::NetResource;

use vars qw/%tk %dr %im/;

$dr{path} = "c:\\";
$dr{server} = ShowServer($dr{path});
$dr{perms} = "Permissions '" . $dr{path} . "'";
$dr{domain} = "Domain : " . Win32::DomainName();

printf "\n%s,\t%s,\t%s,\t%s", $dr{path}, $dr{server}, $dr{perms}, $dr{domain} . "\n";

$tk{mw} = MainWindow-> new (-background=> 'white');
$tk{mw}-> geometry('900x700');

$tk{top_frame} = $tk{mw}-> Frame;
$tk{left_frame} = $tk{mw}-> Frame;
$tk{adjuster} = $tk{mw}-> Adjuster(-widget=> $tk{left_frame}, -side=> 'left');

$tk{entry_box_label} = $tk{top_frame}-> Label(-text=> "Path: ");
$tk{entry_box} = $tk{top_frame}-> Entry(-textvariable=> \ $dr{path});

$tk{dir_tree_label} = $tk{left_frame}-> Label(-textvariable=> \ $dr{server});
$tk{dir_tree} = $tk{left_frame}-> Scrolled('DirTree', -height=> '0', -width=> '0', -scrollbars=>'e',);

$tk{entry_box}-> bind('<Key-Return>', sub {&OnNewPath();});

$tk{top_frame}-> pack(qw/-side top -fill x/);
$tk{left_frame}-> pack(qw/-side left -fill y/);
$tk{adjuster}-> pack(qw/-side left -fill y/);

$tk{entry_box_label}-> pack(qw/-side left -fill both/);
$tk{entry_box}-> pack(qw/-side top -fill both -expand 1/);

$tk{dir_tree_label}-> pack(qw/-side top -fill both/);
$tk{dir_tree}-> pack(qw/-side left -fill both -expand 1/);

MainLoop;
exit(0);

sub ShowServer{
	my $drv = @_;
	my $srv;
	if (Win32::NetResource::GetUNCName( my $unc, $dr{path})){
	$unc =~ s/^\\\\(\w)+//;
	$srv = $&;
	return $dr{server} = "[ Remote Server Name : " . uc($srv) . " ]";}
	else{
	$srv = Win32::NodeName();
	return $dr{server} = "[ Local Server Name : " . uc($srv) . " ]";}}
sub OnNewPath{	
	$tk{dir_tree}-> delete('all');
	$tk{dir_tree}-> chdir ($dr{path});	
	ShowServer($dr{path});}