#!/usr/bin/perl
 
# System backup
 
#------ Variables ------
$backupdir = "/usr/local/pwrhouse"; # "." for current
$other_dirs = "/usr/local/hostboard/mainboard/cgi-bin /usr/local/hostboard/mainboard/htdocs";
#-----------------------
print "Backup Initiated...n";
@timenow = localtime(time);
 
$newfilename = sprintf("%02d",$timenow[4]+1) .
sprintf("%02d",$timenow[3]) . ($timenow[5] + 1900);
print "Using Filename: $newfilename.sql n";
print "Starting database backup... n";
system "mysqldump -qce -r $newfilename.sql -u root ubb";
print "Starting Compression... n";
system "tar czf $backupdir/$newfilename.tar.gz $other_dirs $newfilename.sql";
unlink "$newfilename.sql" || print "Error: Cannot delete file specified: $newfilename - $_ n";
print "Done. n"

SHOW TABLE STATUS FROM <DATABASE_NAME>;

use DBI;
my $dbname = "your_db_name";
my $dbh = DBI->connect('DBI:mysql:'.$dbname, 'root', '',{RaiseError => 1});
my $sth = $dbh->prepare("SHOW TABLE STATUS FROM $dbname");
$sth->execute;
my $size = 0;
while (my $stat = $sth->fetchrow_hashref) {
   $size += $stat->{Data_length};
}
$dbh->disconnect;
printf "Total data size: %.2f KB", $size / 1024;

$space = $quota - $disk_space_I_currently_use;
# $xtra can be a constant value for insert() statements
if ($space > $size+$xtra) {
   # do backup
} else {
   # don't
}