#!/fs/COTS/gnu/bin/AIX/perl use bignum;