Since you already know the directory structure you don't really need to use find, you can use a glob to get all the files...

#!/usr/bin/perl -w
use strict;

for ( </home/www/*/logs/weekly> ) {

    qx/gzip $_ | mail who@ever.com/; # or however it's done :)

}
[download]

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"