#!/usr/bin/perl

$user = 'someuser';
$pass = 'somepassword';
$host = 'localhost';

$threshold = 600;

use DBI;
use Data::Dumper;

$dbh = DBI->connect("DBI:mysql:mysql", $user, $pass
                   ) || die "Could not connect to database: $DBI::errstr";


$sth = $dbh->prepare('SHOW SLAVE STATUS');
$sth->execute();
$result = $sth->fetchrow_hashref();

if (!$result->{'Seconds_Behind_Master'}) {
        print "MySQL replication seems to be broken.    Here is the output of SHOW SLAVE STATUS\n";
        print Dumper($result);
}

if ($result->{'Seconds_Behind_Master'} >= $threshold) {
        $minutes = $result->{'Seconds_Behind_Master'} / 60;
        printf("ERROR: MySQL Slave is %i minutes behind the master server\n", $minutes);
}


exit;