DBI->connect() or print LOG "Error message\n";
[download]

You could also use the contents of $@. After the eval, the die message will be stored in $@.

Is that what you need?

Russ
Brainbench 'Most Valuable Professional' for Perl