#!/usr/bin/perl 
use strict;
use warnings;
use Math::BigInt lib => 'GMP';


# (((-2)**4)+1)

my $x = Math::BigInt->new('-2');
print $x->bpow(4)->badd(1)->bstr();

__END__
Output: 17