in reply to CREATE TABLE DDL from DBI Statement
SQL::Translator is your best bet with Perl but you might be able to do this with a script from IBM.
Jason L. Froebe
Blog, Tech Blog