在Perl中，可以使用eval塊和die函數來進行錯誤處理和異常捕獲。下面是一個簡單的示例：
eval {
open(my $file, "<", "notexists.txt") or die "Cannot open file: $!";
while(my $line = <$file>) {
print $line;
}
close($file);
};
if ($@) {
print "An error occurred: $@";
}
在上面的示例中，使用eval塊來嘗試打開一個不存在的文件，如果打開失敗，則die函數會拋出錯誤，并且在eval塊結束后會將錯誤賦值給特殊變量$@。在eval塊外部，通過檢查$@變量的值來判斷是否發生了異常，進而進行相應的錯誤處理。
