my $database    =   "";
my $hostname    =   "localhost";
my $port        =   "3306";
my $user        =   "";
my $password    =   "";

use DBI;
my $dbh = DBI->connect("DBI:mysql:$database:$hostname:$port", $user, $password);

# Repair and optimize each table
foreach my $table ($dbh->tables) {
    my $t0 =Time::HiRes::time() ;
    unless ($dbh->do("REPAIR TABLE $table")) {
        print "Skipped:  $table\n";
        next;
    };
    if ($dbh->do("OPTIMIZE TABLE $table")) {
        my $t1 = Time::HiRes::time();
        my $delta=$t1 - $t0;
        print "[$delta]\tRepaired/Optimized: $table\n";
    }
}

# Close the database connection
$dbh->disconnect;