How do you throw an exception in Perl 5?

1. die (it isn’t pretty).
2.  croak (good).
3. confess (if you please).