or download this
my @listaccountlocked = split("=", $accountlocked);
if ($listaccountlocked[1] =~ /^true$/i) {
system("chuser account_locked='false' $username");
print(`lsuser -a account_locked $username`); }
else {
print("\nThe account $username is not locked\n\n"); }