BEGIN {
my $path=$0;
$path=~s{[^\/]+$}{libs/};
}
use lib $path;