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

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

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

use Inline 'C' => <<'__C__';
float killme() {
    volatile float f = 0.0;
    volatile float c = f / f;
    return c;
}
__C__

local $SIG{FPE} = sub { die "SIGNAL @_" };
print killme();