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.
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (380 votes). Check out past polls.