...

my $account = AIX::Account->new($user);
if ($account->locked) {
    print "Attempting to unlock account for '$user'\n";
    if (! $account->unlock) {
        print "Failed to unlock account for '$user': ", $account->last_error;
    }
    else {
        print "Account for '$user' successfully unlocked\n";
    }
}
else {
    print "Account for '$user' was not locked\n";
}