#!/usr/bin/perl
# test.pl --
use strict;
use warnings;
use diagnostics;
use DB_File;

my %hash;
my $db_path = './db/';
for  (@INC) {
    if (-d "$_/Chess/PGN/db") {
        $db_path = "$_/Chess/PGN/db/";
        last;
    }
}
my $filename = "${db_path}ECO";
open TEST, "<$filename" or die "Couldn't open $filename:$!";
close TEST;
#-----line 19 follows-----
tie (%hash, "DB_File", $filename)
    or die "Couldn't tie $filename: $!\n";


##</code><code>##

C:>test
Uncaught exception from user code:
        Couldn't open C:/Perl/site/lib/Chess/PGN/db/ECO: No such file or directory
 at C:\Perl_Dev\Openings for Russ\test.pl line 19