Select Code to Download

use strict;
use warnings;
...
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" );

>perl dbmopentest.pl Y:\path\to\dbdir
open failed for Y:\path\to\dbdir\tableAB.db: No such file or directory