http://www.perlmonks.org?node_id=906946


in reply to Can't time out a $sth-fetchrow()

I found a solution! Thanks for your time ;) http://search.cpan.org/~lbaxter/Sys-SigAction-0.11/dbd-oracle-timeout.POD


s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e