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