my $sth=$dbh->prepare(
          "SELECT DATE_FORMAT(NOW(), '%M %D, %Y')");
my $rv=$sth->execute;
my ($date) = $sth->fetchrow_array; $sth->finish;