FD leaks while interacting with DB

Select or download this

 Perl Vesrion: 5.10.x 
       DBD : 1.80
       DBI : 1.643

Select or download this

#!/use/bin/perl

...

showtime

Select or download this

Start debug file
    DBI 1.643-ithread default trace level set to 0x0/4 (pid 2349 pi 7f
+c7300692a0) at access_database.pm line 280 via (eval 18) line 10
    -> DBI->connect(dbi:Oracle:temip_syno_ip_read, temipsyno, ****, HA
+SH(0x7fc7307d4158))
...
    -> DESTROY for DBD::Oracle::st (DBI::st=HASH(0x7fc7307f6c70)~INNER
+) thr#7fc7300692a0
    <- DESTROY= undef at access_database.pm line 423 via  at access_da
+tabase.pm line 423
    dbih_clearcom 0x7fc7307f6c70 (com 0x7fc73091cff0, type 3) done.

Select Code to Download