in reply to AnyDBM on Strawberry Perl: file can't be found

Try print $^E as well
or die( "open failed for $table_file: $!\n$^E\n" );