my @listaccountlocked = split("=", $accountlocked);
if (chomp($listaccountlocked[1]) eq "True") {
    system("chuser account_locked='false' $username");
    print(`lsuser -a account_locked $username`); }
else {
    print("\nThe account $username is not locked\n\n"); }