unless($dirname =~ /\\$/){		
	$dirname .= "\\";
}

##</code><code>##

$fullname = $dir.$file."\\";