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.
My fellow monks
Can't tell (I'm NSA/FBI/HS/...)
Others (explain your deviation)
Results (168 votes). Check out past polls.