# print "name is $name and to compare is $compare_name.\n";
local($new_name) = $src . "/" . $name;
if ( (-d $new_name) && ($name ne ".") && ($name ne "..")
# print "name is $name and to compare is $compare_name.\n";
local($new_name) = $src . "/" . $name;
if ( (-d $new_name) && ($name ne ".") && ($name ne "..")