{
    tie my %accounts, 'esmith::config', '/home/e-smith/accounts';

    $OUT = join("\n", grep { db_get_type(\%accounts, $_) eq 'user'
                        && db_get_prop(\%accounts, $_, 'PasswordSet') eq 'yes'
                    } keys %accounts);
}
