PerlでOpenIDの認証デモ(コンシューマ)を作ってみた/楽