Select Code to Download

package Chess::PGN::EPD;

use strict;
...
if ( -d !$db_dir_qfn  ) {
    $db_dir_qfn = realpath('db');
}