$sth = $dbh->prepare('select current_date()');
    $sth->execute();
    my ($current_date) = $sth->fetchrow_array();
    $sth->finish();