Select Code to Download

C:\>perl -e "eval { local $SIG{ALRM} = sub { die 'db_timeout' }; alarm
+ 3; sleep 4; }; print 1"
1
...
db_timeout at -e line 1.

C:\>