my $dbh = (
   'connection string', 'user', 'pass',
   {RaiseError => 1},   # IMPORTANT!!!
);

my $sth = $dbh->prepare(q|
   select * from Referrals
   where [Today's Date] > ?
|);
$sth->execute($date);