На Perl это может выглядеть например вот так:
#!/usr/bin/perl -w
use DBI;
use strict;
my($dbh, $sth, $sum, $hash_ref);
$sum = 0;
$dbh = DBI->connect("DBI:mysql:your_db", \'your_login\', \'your_pass\') or die $DBI::errstr;
$sth = $dbh->prepare("SHOW TABLE STATUS") or die "$dbh->errstr()\\n";
$sth->execute();
while($hash_ref = $sth->fetchrow_hashref())
{$sum += $hash_ref->{Data_length};}
print "Total data length is $sum bytes\\n";
$sth->finish();
$dbh->disconnect();
exit(0);
C уважением.