use Math::Pari qw(gcd);
my $x = gcd(232,300);
print "gcd is $x\n";