$SIG{FPE} = sub { die "Ooops\n" };
use List::Util 'product';
print product(-1,1);

##</code><code>##

cpanm https://cpan.metacpan.org/authors/id/P/PE/PEVANS/Scalar-List-Utils-1.59.tar.gz
perl fpe.pl