Request URL: https://testchandan.com:5001/?code=E1XqzJxB-OMLscNAJtWZG1_wthVln5UfNIWwAS5YDU8&state=1234
Request Method: GET
Status Code: 200 OK
Remote Address: 10.10.1.6:5001
Referrer Policy: strict-origin-when-cross-origin
Content-Length: 1252
Content-Type: text/html; charset=UTF-8
Date: Mon, 14 Jun 2021 04:59:57 GMT
Server: HTTP::Server::PSGI
Server: Perl Dancer2 0.301002
Set-Cookie: plack_session=ba1d0d240ba3ed6c6fca13c240c758a6c812200d; path=/
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
Accept-Encoding: gzip, deflate, br
Accept-Language: en-US,en;q=0.9
Connection: keep-alive
Host: testchandan.com:5001
Sec-Fetch-Dest: document
Sec-Fetch-Mode: navigate
Sec-Fetch-Site: cross-site
Sec-Fetch-User: ?1
Upgrade-Insecure-Requests: 1
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.104 Safari/537.36
code: E1XqzJxB-OMLscNAJtWZG1_wthVln5UfNIWwAS5YDU8
state: 1234 

##</code><code>##

package Op;
use strict;
use warnings;
use LWP::UserAgent;
use URI;
my $ua = LWP::UserAgent->new();
my $uri2 = URI->new('https://testchandan.com:5001/dev');
 my $response1 = $ua->get($uri2);
my $responsecode = $response1->code() 
print $response1->headers_as_string if $response1->is_success;