#!/usr/local/bin/perl -w

use strict;
use Data::Dumper;
use Mozilla::LDAP::Conn;
use Mozilla::LDAP::Utils;
use Config::General;

my @path = qw(/usr/lib/perl /export/home/bills/);
my $rcfile = "/export/home/bills/acct.cfg";
my $conf = new Config::General(-ConfigFile => "acct.cfg", -ConfigPath => \@path);
my %config = $conf->getall();
$conf->save_file("new");
print Dumper(\%config);
exit;

##</code><code>##


<user jsearle>
        <server psdbsrv1>
                why
                lastLogin Never logged in
                approved
                exp
                shell
                email_1_date
                email_2_date
        </server>
        <server psdev1>
                why
                lastLogin Never logged in
                approved
                exp
                shell
                email_1_date
                email_2_date
        </server>
        <server psbeta1>
                why
                lastLogin Never logged in
                approved
                exp
                shell
                email_1_date
                email_2_date
        </server>
        <server orafinalpha1>
                why
                lastLogin Never logged in
                approved
                exp
                shell
                email_1_date
                email_2_date
        </server>
</user>