note GrandFather <p>Looks like you are hoping that <c>catfile( __PACKAGE__, updir(), 'db' )</c> will find the folder 'db' relative to the folder containg the .pm file. However __PACKAGE__ is Chess::PGN::EPD which is unlikely to be what you mean and <c>updir()</c> removes it in any case so the catfile call is effectively <c>catfile('db')</c> which returns 'db' without the context you seem to be hoping for.</p> <p>A technique that may help is to look up %INC for the module entry:</p> <c> my $modulePath = $INC{'Chess/PGN/EPD.pm'}; </c> <p>which will give a relative or absolute path (depending on where the module is) ending in 'Chess/PGN/Moves.pm'. That is, the file name will need to be stripped off the end of the path. Something like the following may work:</p> <c> ... use File::Spec::Functions qw(rel2abs splitpath updir catdir); use Cwd qw(realpath); my $loadPath = rel2abs ($INC{'Chess/PGN/EPD.pm'}); my @parts = splitpath ($loadPath); my $db_dir_qfn = realpath (catdir (@parts[0, 1], updir(), 'db')); </c> <div class="pmsig"><div class="pmsig-461912"> True laziness is hard work </div></div> 904908 904908