SQLite how to use perl DBI to return SQLite database waiting status?

Question

Hi!

I used BEGIN EXCLUSIVE for my write transaction so that the other users connect to the database at the same time will have to wait. My question is "Is there a way to track how long the script has been waiting before timeout"? I would like to return either a "database locked" or "sqlite busy" message to a variable in my script and exit the program. Currently it just returns "undefined value..." after timeout and exits. However, I would like to do it manually with customized error message to the users..

Thanks in advance.