#!/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::$_"};
}