sub wanted     
{                
        /TNSNAMES.ORA/i or return;        
            Details($File::Find::name);            
}