use lib $0 =~ m|(.*)/|;

##</code><code>##

use Cwd            qw( realpath );
use File::Basename qw( dirname );

use lib dirname(realpath($0));