snippetsmania.com
Post and share your code snippets

#!/usr/bin/env perl

use DBI;
#use strict;

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

source