#!/usr/bin/perl
 
use strict;
use warnings;
 
use File::Find;
find(\&handle_file, '/usr/share/doc/');
exit;
 
sub handle_file {
  print $_, "\n" if /.*\.html/;
}