>>89
        # エラーチェック
        if ($response->is_error)
        {
                my $code = $response->code();
                &DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：Beユーザー情報の取得に失敗しました。($code)");
        }

ってことで be 鯖がエラーの場合は書き込みエラーになりますね．むしろ

        # エラーチェック
        if ($response->is_error)
        {
                # 持ち株数がとれない時は0株とみなす
                return 0;
#               my $code = $response->code();
#               &DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：持ち株情報の取得に失敗しました。($code)");
        }

ということで，株鯖がエラーの場合にそうなるんじゃないかと．
で，書き込みエラーにする処理はコメントアウトされているので，
そうなるのは意図的ってことなのかなぁ......