my $d= 0;
eval 1/$d;