RosettaCodeData/Task/Exceptions/Perl/exceptions-3.pl

# catch an exception and show it
try {
    die "this could go wrong mightily";
} catch {
    print;
};