perl delete mysql entries older than 7 days

#!/usr/bin/perl -w

use strict;
use DBI;

my $database = "test";
my $hostname = "localhost";
my $user = "test";
my $pass = "test";
my $dsn = "DBI:mysql:database=$database;host=$hostname";

my $dbh = DBI::->connect($dsn, $user, $pass,
        { 'RaiseError' => 1, 'AutoCommit' => 1 });

#######debug######

#my $c = $dbh->do('SELECT datum FROM spam_log WHERE datum<=DATE_SUB(CURDATE(), INTERVAL 7 DAY)');
#print $c;

######debug######

$dbh->do('DELETE FROM spam_log WHERE datum<=DATE_SUB(CURDATE(), INTERVAL 7 DAY)');

Have fun