or download this
#!/usr/bin/perl -w
use strict;
...
(DataSource: insidetrack-db, Type: SYBASE)
[Wed Aug 04 00:10:40.666 2010] [DEBUG] [TP-Processor19, time=128089504
+0587, uri=/ibdsupport/workflow/webapp/workflow/coordinator/gotoCoordi
+natorNew.cb2] [com.boylesoftware.cb2.DAOBJT]: [208973534] executing c
+hunk "6" with a timeout of 360 seconds