use Math::Trig;
use bignum;
sub factorial
{
  my $n = @_;
  my $root = sqrt($n*2*pi);
  my $exp = ($n/exp(1)) ** $n;
  my $result =$root*$exp;
  return $result;
}

my $b = 2032597;
my $r = Math::BigInt->new(factorial($b));
print "b is $b\n";
print "the calculated result is $r\n";