Perl DBI and show procedure

Connectivity

Perl DBI and show procedure

Hi Guys. I am trying to execute 'show procedure ' using Perl DBI, but always getting wrong result. The same code with 'show view' works correctly. Does anybody help me?