sub access_to_protected_resource {
   my $your_app = shift;
   my ($args) = @_;
    my $dev   = $args->{OKTAUsersList};
    my $email   = $args->{Email};
	my $date = strftime '%Y-%m-%d-%H-%M-%S', localtime;
	my @responsetext;
    my @responsetextall;
	
	my $strExcelFilename1;
	my $linkheader;
my $pagecount1 = "limit=200";
my $r = 1;
my @apiurlapplog2 = $baseurl2 ."/api/v1/users?" . $pagecount1;

$strExcelFilename1 = "C:/PERL/" . "Profile-User-Details" . $date . ".xlsx";
	 
    my $access_token  = $your_app->store->get("access_token");
    my $expires_at    = $your_app->store->get("expires_at");
    my $refresh_token = $your_app->store->get("refresh_token");

    unless ($access_token) {
        $your_app->start_authorize();
        return;
    }
 
    if ($expires_at < time()) {
        $your_app->refresh_access_token();
        return;
    }
 
   # my $req = HTTP::Request->new( ('GET', "$_[0]"));
	my $req = HTTP::Request->new( GET => q{https://dev.preview.com/api/v1/users?limit=200});

    #$req->header( Authorization => sprintf(q{Bearer}, $access_token) );
	    $req->header( Authorization => sprintf(q{OAuth %s}, $access_token) );

    my $agent = LWP::UserAgent->new;
    my $res = $agent->request($req);
	print "Response:$res\n";
   }