if (defined (@ARGV) $ARGV[0]=~/-all/)    
{        
   $mode="all";    
} else {
   $mode="";     
}

##</code><code>##

if (-d $file) {
   &scandir;