find /opt/splunk/syslog/ -iname "*log*" -type f -mtime +30 | perl -wne 'BEGIN { $sum = 0 }; chomp; $sum += (stat)[7]; END { print "$sum\n" }'

##</code><code>##

sub scaleIt {
    my $size_in_bytes = shift;

    return unless defined $size_in_bytes;

    my ( $size, $n ) = ( $size_in_bytes, 0 );
    ++$n and $size /= 1024 until $size < 1024;
    return sprintf "%.0f%s", $size, (qw[ B KB MB GB TB ])[$n];
}