sub result4 {
					
					my ($args) = @_;
    my $oktadev   = $args->{OKTAUsersList};
	my $email   = $args->{Email};
					
					my $ua = LWP::UserAgent->new();
$ua->proxy([ 'http' ], 'http://proxy.myorg.com:8080');
my $uri = URI->new('https://dev.oktapreview.com/oauth2/v1/authorize');
   $uri->query_form(client_id => 'xxxxxxxxxxxxxxxxxx',response_type=>'code', scope=>'openid okta.users.read',redirect_uri=>'https://testchandan.com:5001',state=>'1234', nonce=>'UBGW');
    my $response1 = $ua->get($uri);
    my $responsecode = $response1->code() ;
	my $responsecontent = $response1->content();
	print $response1->headers_as_string if $response1->is_success;
    print "$responsecode\n";
    print "$responsecontent\n";
					 unless($response1->is_success(),$response1->code) {
   die($response1->code, "\n", $response1->content, "\n");
					
				}
				
				}
##</code><code>##

package webapp;
use Dancer2;
use Op;


our $VERSION = '0.1';


get '/' => sub {
	#&client1;
    template 'query2' => { 'title' => 'webapp' };
};
post '/' => sub {
    my $r2 = Op::result4({OKTAUsersList => param('OKTA-Users-List'),
                         Email => param('Email')});
    template result4 => { title => 'webapp', result4 => $r2 }
};
true;