sub find_files{
  push(@files,$File::Find::name) if(-f $File::Find::name && $_ =~ /\.htm$/);
}