#!perl
use warnings;
use strict;

use bignum;

my $n = -1;

print "10 ** $n = " . 10 ** $n . "\n";

##</code><code>##

10 ** -1 = NaN