find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));
find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/;}, qw(templates/webpages));
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');
find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));
find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/;}, qw(templates/webpages));