Slette data ældre en 3 måneder

[Poul Møller Hansen <sslug@sslug>]

Hej

Jeg har ændret min database fra MySQL til db2, men er stødt ind i et lille 
problem.

Jeg vil gerne slette alle data ældre end 3 måneder, og har i MySQL gjort det 
med:
my $sth = $dbh2->prepare("delete from www WHERE last_corrected < 
DATE_SUB('$date_string', INTERVAL 3 MONTH) ");

det virker bare ikke i db2, så istedet vil jeg prøve:
DELETE FROM www WHERE last_corrected BETWEEN $then AND $now

men hvordan finder jeg $then
Jeg har fået rodet mig ud i noget forfærdeligt noget her:

$Year = strftime "%Y", localtime;
$Month = strftime "%m", localtime;
$Day = strftime "%d", localtime;

($year,$month,$day) = Add_Delta_Days($Year,$Month,$Day, -90);

men $month er 3 og ikke 03, og jeg skal bruge en yyyy-mm-dd streng, hjælp!!


Mvh, Poul