Comment effectue-t-on un TRY/CATCH en Perl?

eval {
... code a risque ... avec instruction die (équivalent de throw)
};

if ($@ ne '') {
... traitement de l'erreur ..
}