use File::Spec::Functions qw(rel2abs)
use lib do {
    my @dirs = split('/', rel2abs($0));
    splice(@dirs,-2);
    my $install_dir = join('/',@dirs);
    $install_dir."/lib" };