sub get_dir
  {
   push (@files,$File::Find::name) if(-f $File::Find::name);
  }