Use File::Find. Something like the following is relatively workable:

#!/usr/bin/perl -w

use strict;
use Cwd;

use File::Find;

my $type = shift || '.html';

sub fetch {
    print "$_\n" if $File::Find::name =~ /$type$/;
}

find(\&fetch, cwd());
[download]