Perl 中处理异常的方法是使用 eval 块来捕获异常。通过在 eval 块中执行可能出现异常的代码，可以在异常发生时捕获并处理它们。可以使用 die 函数来抛出异常，通过在 eval 块中使用 die 来抛出异常，然后在 catch 块中处理异常。例如：
eval {
# 可能会抛出异常的代码
die "An error occurred";
};
if ($@) {
# 异常被捕获
print "Error caught: $@\n";
}
在上面的示例中，如果 eval 块中的代码抛出异常，它将被捕获并存储在变量 $@ 中，然后在 if 语句中处理异常。
