use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, qw(System common Bio Tools));
# or ...
use lib File::Spec->catdir($FindBin::Bin, qw(System common));