Select Code to Download

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

my $dbh = (
   'connection string', 'user', 'pass',
...
   where [Today's Date] > ?
|);
$sth->execute($date);

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