#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find::Rule;

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