#!/usr/bin/perl

use DBI;

### CONFIGURE ###

$maxage=3600*3;
$db='dbname';
$table='captcher';
$username='username';
$pw='password';

#############

$oldest=time()-$maxage;

$dbh = DBI->connect("DBI:mysql:database=$db", $username, $pw);
$dbh || die "Couldn't connect to database.";
mysql_query("delete from $table where created<$oldest") || die "Database query failed.";

sub mysql_query {
	my $sth = $dbh->prepare($_[0]);
	return ($sth && $sth->execute) ? $sth : 0;
}