use Math::BigFloat;

my $one_minus_one = Math::BigInt->new(1) - Math::BigFloat->new(.9999);
print "$one_minus_one\n";