use strict;

my $v = DBI::SQL_DATE;   # --> Bareword "DBI::SQL_DATE" not allowed while "strict subs" in use