$total=0;
$count=0;
eval { $average = $total / $count ; print "xxx/n";} ;
if ($@)
{
print "wrong /n";
}
else
{
print "right/n";
}
eval塊的結束時的分號是必須的，因爲不像 if或者while那樣的控制結構，eval實際上是個函數。但是代碼塊是真的塊，所以可以包括詞法變量（"my" 修飾的變量）和另外其它的arbitrary語句。因爲是個函數，eval有像子例程那樣的返回值（最後一個表達式的求值結果，或者由return語句返回的結果）。 當然，如果代碼塊失敗則沒有值返回；如果在標量環境將返回未定義值，在列表環境將返回一個空的列表。因此，比較安全的求平均值的代碼的寫法如下：
my $average = eval { $total / $count } ;
Perl也支持eval代碼塊的嵌套。只要代碼執行，eval塊總能捕捉錯誤，所以它能捕捉嵌套子例程裏發生的錯誤。儘管如此，eval不能捕捉到非常嚴重的錯誤，這些錯誤發生時Perl自己會中斷執行。這些錯誤包括無法捕捉的信號，內存溢出或其它的災難。eval同樣不能捕捉到語法錯誤；因爲Perl在編譯eval及其它代碼的時候檢查語法錯誤，而不是在運行時。還有，eval也不能捕捉警告。（但是Perl的確提供一個方法來捕捉警告信息；可以查閱一下變量$SIG{__WARN__}）。