Select Code to Download

#!perl
use warnings;
use strict;
...
my $n = -1;

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

10 ** -1 = NaN