BEGIN {
    use Cwd qw/abs_path/;
    use File::Spec::Functions qw/rel2abs/;

    my $path = rel2abs(abs_path($0));
    if ($path =~ m,^((?:/\w+)*?/)(?:cgi|bin)/,) {           
        unshift @INC, $1.'lib';
    } else {
        die "Unable to determine lib path from $path";
    }
};