Perl 中处理异常的方法是使用 eval 块来捕获异常。通过在 eval 块中执行可能出现异常的代码，可以在异常发生时捕获并处理它们。可以使用 die 函数来抛出异常，通过在 eval 块中使用 die 来抛出异常，然后在 catch 块中处理异常。例如：

eval {# 可能会抛出异常的代码die "An error occurred";};if ($@) {# 异常被捕获print "Error caught: $@\n";}

在上面的示例中，如果 eval 块中的代码抛出异常，它将被捕获并存储在变量 $@ 中，然后在 if 语句中处理异常。