#! /usr/bin/env perl

use strict;
use warnings;
use File::Basename;
use File::Path;
use Cwd 'getcwd';

my $CWD=dirname(${0});
my $DB=basename(${0}, '.pl');
chdir $CWD;
$CWD=getcwd;
my $PWD=dirname($CWD);

my $ESROOT=$PWD;
my $MRDIR=$CWD;

#/home/w3sw/EdgeStore/data/source/pfam
my $DATAPATH=$ESROOT . '/data/source';
my $DATADIR=$DATAPATH . '/' . $DB;

printf "%s\n", $DATAPATH;
printf "%s\n", $DATADIR;

exit;