prepare(q/exec sp_helptext(?)/);
execute('my_object_name');
while(@data = fetchrow_array) {
    print join(q{,}, @data) . "\n";
}