Try catch perl

[WxJ]

How do you set up a try catch structure in perl? I need the catch to catch all errors and ideally print the type of error they were.

 

[max1x]

eval {
do something;
}; print$@;