my $lastmonth=(localtime())[4]||12;
...
my $sth=$dbh->prepare("SELECT * from $table where month(Date)=?");
$sth->execute($lastmonth);
...