#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                 ->name('*.html')
                 ->in( 'home/usr/perl/html.files' );
foreach my $file(@files) {
        print $file, "\n";
}