our @files;


sub listdirectory
{
    local($dir);
    local(@lines);
    local($subdir);
    local($lvl_counter);
    local($list_length);

    $dir = $_[0];
    if(opendir (DIR, $dir))
    {
	@lines = readdir (DIR);
	closedir (DIR);
	$lvl_counter = 2;
	$list_length = ( scalar @lines );
	while ($lvl_counter < $list_length)
	{
	    $subdir = $dir."/".$lines[$lvl_counter];
	    $subdir2 = $dir."\\".$lines[$lvl_counter];
	    
	    if(opendir (SUBDIR, $subdir))
	    {
		closedir (SUBDIR);
		listdirectory($subdir);
	    }
	    elsif(opendir (SUBDIR2, $subdir2))
	    {
		closedir (SUBDIR2);
		listdirectory($subdir2);
	    }
	    else
	    {
		processnames($subdir);
	    }
	    $lvl_counter++;
	}
    }
}



sub processnames 
{
    $n = $_[0];
    if($n eq "." || $n eq ".." )
    { 
	return;
    }
    else
    {    
	push @files , "$n";
    }
}