Welcome, this isnt' a code writing or job outsourcing forum. Please take your time to familiarise yourself, PerlMonks for the Absolute Beginner/How do I post a question effectively?. The documentation for Exception::Class::TryCatch and DBI should be your first port of call, you'll likely know how to create a deadlock in MS SQL Server (I've no idea, I'd never use it), failing that speak to your DBA, a sane websearch or reading the documentation will likely help.