next if $dir_cont =~s/^\.\.?$/;

##</code><code>##

next if $dir_cont=~/^\.\.?$/;

##</code><code>##

my($dir,$fullpath) = @_;

##</code><code>##

my($dir,$full_path) = @_;