my ($day, $month, $year) = (localtime)[3,4,5];
$year += 1900;
$month += 1;
if ($month < 10) {
	$month = "0" . $month;
}
$day--; # We want yesterdays date, yeah? Ok, this fails for the first of the month, I don't have the time to hack that :)
my $date = "$year-$month-$day";