use strict;
use warnings;
use AnyDBM_File;
use POSIX;

my $table_path = shift;
my %hash_AB;

my $table_file = "$table_path\\tableAB.db";
die "$table_path not a directory\n" unless ( -d $table_path );
die "$table_file not found\n" unless ( -f "$table_file" );
tie( %hash_AB, 'AnyDBM_File', "$table_file", 1, 0 )
	or die( "open failed for $table_file: $!\n" );