my $login_status = loginweb($all_ap{$_}->{'webloginurl'}, $all_ap{$_}->{'webloginpostdata'});
if ($login_status eq 'success'){

   ## Call next subroutine
       
my $setpassword = changewebpass($all_ap{$_}->{'webadminurl'}, $all_ap{$_}->{'webadminpostdata'});
    if ($setpassword ne 'success'){
      print "Can\'t change password\n";
        }else{
      print "New login created:\n\t username: $all_ap{$_}->{'webuser'} \n\t password: $all_ap{$_}->{'webpass'}\n";
    }