local $SIG{FPE} = sub { die "SIGNAL @_" };

my $x = 0;
print 2 / $x;