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

In Section Seekers of Perl Wisdom