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