C:\PerlScripts>test.pl
the execute should have failed before here
DBD::DB2::st fetch failed: [IBM][CLI Driver][DB2] SQL0904N  Unsuccessful execution caused by an unavailable resource.  Reason code: "00C90081", type of resource
: "00000200", and resource name: "SHTDB038.SHTT09Z1".  SQLSTATE=57011
should not get here

C:\PerlScripts>