Help for this page
perldoc -m DBI perldoc -f eval
eval { ... ... warn $@; # print the error ... # do whatever you need to deal with the error }