Processing Oauth Response from Perl

Description
I am attempting to get a token for making requests of the Zoom API. I have been successful in the past with other APIs. However, with Zoom the redirection seems to be throwing me off as I cannot determine the correct authorization_id needed for getting a token. Can anyone point me in the right direction? When I go through the MarketPlace I can easily get the correct code from the redirected response.

Response Received
HTTP/1.1 302 Found
Connection: close
Date: Tue, 28 Apr 2020 23:18:53 GMT
Location: https://zoom.us/oauth/signin?_rnd=1588114&client_id=XpRidSfw&redirect_uri=https%3A%2F%2Farpapsych.org&response_type=code&_x_zm_rtaid=SqlCsiE5SlKrasIeswgA.1588…d.e4&_x_zm_rhtaid=367
Server: ZOOM
Content-Length: 0
Client-Date: Tue, 28 Apr 2020 23:18:53 GMT
Client-Peer: …
Client-Response-Num: 1
Client-SSL-Certd=D04A4…27; Path=/; Secure; HttpOnly

Which App Type (OAuth / Chatbot / JWT / Webhook)?
OAuth

Hey @arpapsych.org,

Please see our OAuth guide here:

Let me know which step you are having trouble with.

You can also use a JWT Token if you want to make API requests on your own Zoom account.

Thanks,
Tommy

I can manually “install” or issue the authorization from the developers website to get a valid authorization code that I can use to get a token and then make API calls. However, when I try to issue the authorization via Perl, I do not get a valid code back. See sample below:

response via web: https://zoom.us/?code=9Khu6lTVNC_BEo4fWrXQ92388JeB3QOjQ

response with same url: