Select Code to Download

$sth = $dbh->prepare('show table"EP_TGT"."NA_DATA_CNTL";');
$sth->execute;
while (my $text = $sth->fetchrow_array) {        
  # a piece of code not relevant to the question
}

    SQLPrepare show table"EP_TGT"."NA_DATA_CNTL";
    SQLPrepare = 0
...
    <> DESTROY(DBI::st=HASH(0x4c04dc8)) ignored for outer handle (inne
+r DBI::st=HASH(0x4c04ca8) has ref cnt 1)
    >> DESTROY     DISPATCH (DBI::st=HASH(0x4c04ca8) rc1/1 @1 g2 ima10
+004 pid#5724) at c:/BI_Domain/bimain/bin/../lib/App/Reverse/Ddl.pm li
+ne 230 via  at c:/BI_Domain/bimain/bin/../lib/App/Reverse/Ddl.pm line
+ 230
    -> DESTROY for DBD::ODBC::st (DBI::st=HASH(0x4c04ca8)~INNER) thr#d
+17d58