Select Code to Download

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

my $SQL = "SELECT ID, DDATE FROM MYTEMP4
           WHERE to_char(DDATE,'mm/dd/yyyy') LIKE ?";
my $sth = $dbh->prepare($SQL);
$sth->execute('08/%/2015');