Select Code to Download

#!/usr/bin/perl -w
use strict ;
...
print ">>> $row->[0] <<<\n" ;
$sth->finish ;
$dbh->disconnect ;

oracle@cmbsr-> a.pl
    DBI 1.21-nothread dispatch trace level set to 15
...
    >> DESTROY     DISPATCH (DBI::dr=HASH(0x10034c170) rc1/1 @1 g0 a0)
+ during global destruction
    <> DESTROY for DBI::dr=HASH(0x10034c170) ignored (inner handle gon
+e)