unless(defined $DBAPACHE{$name}) {

##</code><code>##

use strict;
use Fcntl;
use AnyDBM_File ();

my $file = "C:/dbase";  # no file extension as dbmmanage chops this off
our @ISA;
my %DB;
tie (%DB, "AnyDBM_File", $file, 0666, O_RDWR|O_CREAT )
    or die "Can't tie $file: $!";
print "ISA @AnyDBM_File::ISA\n";
#my $user = 'test';
#if (exists $DB{$user}) {
#    print "$user:$DB{$user} found!\n";
#}
untie %DB;
__DATA__
SDBM_File
test:password found!