sub Add_Dirs
{
	my $tree = '/home';
	my ($File, $Temp, @Dir_List);
	@Dir_List =
	(
		'/',
		'/one',
		'/one/two',
		'/two',
		'/two/three',
		'/three',
		'/three/four',
		'/three/four/five',
		'/three/four/five/six',
	);

	foreach $File (@Dir_List)
	{
		$Temp = (split('/', $File))[-1];
		$Temp = $File unless defined $Temp;
		$Tree->add($File, -text => "$Temp");
		$Tree->hide(entry=>$File);
	}

	$Tree->show(entry=>$Dir_List[0]);
	$Tree->autosetmode();
}