my $SQL = 'SELECT ID, DDATE FROM MYTEMP4
           WHERE EXTRACT(MONTH FROM DDATE) = ?
             AND EXTRACT(YEAR FROM DDATE) = ?';
my $sth = $dbh->prepare($SQL);
$sth->execute(8,2015);
while (my @f = $sth->fetchrow_array){
  print join " ",@f,"\n";
}