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