foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) {
           printf "%s=%d\n", $_, &{"DBI::$_"};
         }

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use DBI;
use DBD::mysql;

print "Content-Type: text/html\n\n";

foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) {
  printf "%s=%d\n", $_, &{"DBI::$_"};
}

##</code><code>##

Content-Type: text/html

Can't use string ("DBI::SQL_GUID") as a subroutine ref while "strict refs" in use at ./tmp.cgi line 12.