use diagnostics ;
my $x = 0;
eval '3 / $x';