use strict;
use warnings;
use URI;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

$ua->proxy(['http'] => 'http://proxy.org.com:8080');

my $uri = URI->new('https://dev.preview.com/oauth2/default/v1/authorize');

$uri->query_form(
    client_id      => 'XXXXXXXXXXXXXXX',
    response_type  => 'code',
    scope          => 'openid',
    redirect_uri   => 'http%3A%2F%2Ftestchandan.com%3A5001',
    state          => '1234',
    nonce          => 'UBGW'
);

$ua->get($uri);

print Dumper "$uri\n";

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use URI;

my $uri = URI->new('https://dev.preview.com/oauth2/default/v1/authorize');

$uri->query_form(
    client_id      => 'XXXXXXXXXXXXXXX',
    response_type  => 'code',
    scope          => 'openid',
    redirect_uri   => 'http%3A%2F%2Ftestchandan.com%3A5001',
    state          => '1234',
    nonce          => 'UBGW'
);


my $wanted = "https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW";

print "WANTED: $wanted\n";
print "FORMED: $uri\n\n";

print $uri eq $wanted ? "<<perfect match!>>\n" : "<<they're different!>>\n";

##</code><code>##

WANTED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW
FORMED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%253A%252F%252Ftestchandan.com%253A5001&state=1234&nonce=UBGW

<<they're different!>>

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use URI;

my $uri = URI->new('https://dev.preview.com/oauth2/default/v1/authorize');

$uri->query_form(
    client_id      => 'XXXXXXXXXXXXXXX',
    response_type  => 'code',
    scope          => 'openid',
    redirect_uri   => 'http://testchandan.com:5001',
    state          => '1234',
    nonce          => 'UBGW'
);


my $wanted = "https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW";

print "WANTED: $wanted\n";
print "FORMED: $uri\n\n";

print $uri eq $wanted ? "<<perfect match!>>\n" : "<<they're different!>>\n";

##</code><code>##

WANTED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW
FORMED: https://dev.preview.com/oauth2/default/v1/authorize?client_id=XXXXXXXXXXXXXXX&response_type=code&scope=openid&redirect_uri=http%3A%2F%2Ftestchandan.com%3A5001&state=1234&nonce=UBGW

<<perfect match!>>