use File::Find::Rule 'rule';
use File::stat;
use List::Util 'sum';
print sum( map {stat($_)->size}
	rule->file->name(qr/log/i)
	->mtime("<".(time-30*24*60*60))
	->in("/opt/app/logs") ), "\n";