my $sth = $dbh->prepare(<<EndOfSQL);
  SELECT id
  FROM mytable
  WHERE date_new < TO_DATE(?, 'DD/MM/YYYY')
EndOfSQL

$sth->execute('26/11/1987');

while (my @row = $sth->fetchrow_array()) {
  print "@row\n";
}