BigFloat

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open qw(:encoding(utf8) :std);
use feature 'say';
use Math::BigFloat;
my $one = Math::BigFloat->bone;
my $ten = Math::BigFloat->new(10);
my $sixteen = Math::BigFloat->new(-16);
say $one->bsub($ten->bpow($sixteen));