use strict;
use DBI;

my $v = DBI::SQL_DATE;