use File::Basename qw/ dirname basename /;
    use File::Spec::Functions qw/ catfile /;

    BEGIN {
        $Bin = dirname($0);
        $Script = basename($0);
        $Lib = catfile($Bin, 'lib');
    }

    use lib $Lib;