do {
  # Run get the users
  run_api_call($apiurlapplog1);
  @responsetext = parse_json ($client->responseContent());
  push @responsetextall, @responsetext;
  $linkheader =  $client->responseHeader("Link");
  print $linkheader;
  if ($linkheader=~ m/next/) {
  (my $link1 = $linkheader) =~ s/ .*? (self)/$1/gx;
  (my $link2 = $link1) =~ s/self/$1/g;
  (my $link3 = $link2) =~ s/</$1/g;
  (my $link4 = $link3) =~ s/>/$1/g;
  (my $link5 = $link4) =~ s/;/$1/g;
  (my $link6 = $link5) =~ s/ /$1/g;
  (my $link7 = $link6) =~ s/=\"/$1/g; 
  (my $link8 = $link7) =~ s/relnext/$1/g;
  (my $link9 = $link8) =~ s/"/$1/g;
  (my $link10 = $link9) =~ s/,/$1/g; 
   print $link10;
   print $link10;
   #$linkheader =~ s/next/$1/g;
   $apiurlapplog1 = $link10;
  }
  } while ($linkheader=~ m/next/);
  
  for my $i (0..$#responsetextall) {
 $responsetextall[$i] =~ s/]\[/,/g;
      for my $j (0..$#{$responsetextall[$i]}) {
	  my $responseid = $responsetextall[$i][$j]{id};
	       my $responsests = $responsetextall[$i][$j]{status};
		               if ($responsests ne "Deactivated") {					
			run_api_call($apiurluser. $responseid . $apiurl2); 
	    my @responsetext4 = parse_json ($client->responseContent());
		      my $responsecode1 = $client->responseCode() ;
		 for  my $m (0..$#responsetext4) {
		          for my $n (0..$#{$responsetext4[$m]}) {				 
			 $response1 = $responsetext4[$m][$n]{id};
	                            $resplable = $responsetext4 [$m][$n]{label};
		 	      push @mouapps, $resplable;
		 		 }
	  }
	                     my $newurl = ($apiurluser . $responseid );	  
	                                     run_api_call($newurl);	    
                                    my @responsetext1 = parse_json ($client->responseContent());
					print Dumper @responsetext1 ;
        for my $l (0..$#responsetext1) {		
               my $response2 = $responsetext1[$l]{id};
               my $response3 = $responsetext1[$l]{profile}{firstName};
               my $response4 = $responsetext1[$l]{profile}{lastName};
               my $response5 = $responsetext1[$l]{profile}{email};
               my $response6 = $responsetext1[$l]{credentials}{provider}{name};
  
  ## Wrting to the reporting file.
  
                    $worksheet->write(0, 0, 'OKTA-ID');
	      $worksheet->write(0, 1, 'FIRST NAME');
                     $worksheet->write(0, 2, 'LAST NAME');
                     $worksheet->write(0, 3, 'EMAIL-ID');
                     $worksheet->write(0, 4, 'Profile-Master');
	       $worksheet->write(0, 5, 'APPS');
			   
	 $worksheet->write($r, 0, $response2);
                $worksheet->write($r, 1, $response3);
                $worksheet->write($r, 2, $response4);
                $worksheet->write($r, 3, $response5);
	  $worksheet->write($r, 4, $response6);
		 										 foreach (@mouapps) {
										  
		 local $" = '|';
	               my $response7 = join ("|","@mouapps");
		 $worksheet->write($r, 5, $response7);
		 }
		        $r += 1;
	                                    	}

	    } else {
	
	     print "Do Nothing" ;
	
	   }
	   
    
	   }

}