WHERE ((x Is Not Null) AND ([Today's Date]> ?))

##</code><code>##

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

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

##</code><code>##

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