#!/usr/bin/env perl
use strict;
no warnings;
use Win32::Process;
use REST::Client;
use JSON::Parse ':all';
use MIME::Base64;
use Term::ReadKey;
use Data::Dumper;
use MIME::Lite;
use Config::Properties;
use IO::Socket::SSL;
use LWP::UserAgent; 
use HTTP::Request;
use Mozilla::CA;sub 
my $apiurlapplog1 = $baseurl ."/api/v1/users?" . $pagecount1;
my $client = REST::Client->new();
my @responsetext;
my @responsetextall;

run_api_call {
 #start with connecting to Okta and getting the users
 $client->getUseragent()->proxy(['https'], 'http://proxy.abc.com:8080');
  $client->setHost('sso.abc.com');
  $client->setCert("$cert");
  $client->setKey("$certkey");
  #$client-> SSL_ca_file => Mozilla::CA::SSL_ca_file();
  $client->setCa("$certca1");
  $client->setCa("$certca");
 # $client->setTimeout(10);
  $client->addHeader('Authorization',"SSWS $value");
  $client->addHeader('Accept','application/json');
  $client->addHeader('Content-type','application/json');
  $client->GET($_[0]);
}
 print "$apiurlapplog1 . \n";

run_api_call($apiurlapplog1);
  my $responsecode = $client->responseCode() ;
   my $responsecontent = $client->responseContent() ;
  print "Its Responsecode1 : $responsecode  . \n";
  print "ts Responsecontent : $responsecontent . \n";