{   package Tie::AutoBigInt;
    use Tie::Scalar;
    use base "Tie::StdScalar";
    sub STORE { $_[0]->SUPER::STORE(new BigInt $_[1]) }
}
tie $strtcnt, "Tie::AutoBigInt";