eval{ die() }; print $@;;
Died at (eval 13) line 1, <STDIN> line 5.

eval{ xyz* }; print $@;;
Unquoted string "xyz" may clash with future reserved word at (eval 14) line 1, <STDIN> line 6.

eval{ 4/0 }; print $@;;
Illegal division by zero at (eval 15) line 1, <STDIN> line 7.