use vars qw($lib);
BEGIN {$lib = $0; $lib =~ s/[^\/\\]+$//}
use lib $lib . 'lib';