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