use File::Find::Rule;

my @files = find(
  file =>
  name => [ qw/ *.html *.htm *.pl *.cfm / ],
  in   => @ARGV
);