#!/usr/bin/perl
use File::Spec;
use File::Basename;
$some_path = dirname(File::Spec->rel2abs(__FILE__));
use lib qw($some_path/lib);