in reply to
Source command in perl script
Can you do what you need using DBI and DBD::DB2?
One of the examples (Listing 5) in this article show how to do DDL with DBI and DBD::DB2, so perhaps you can just convert your script.
When your only tool is a hammer, all problems look like your thumb.
Update: Trivial edit (specify which example performs DDL), changed plural to singular.
Non-existent; I don't have TV
Non-existent; my TV doesn't have/need a remote
Under my control; I watch alone
Under the control of whoever shouts loudest
Under the control of whoever gets it first
One of many, and the TV has a mind of its own
Results (465 votes),