BEGIN {
    use FindBin qw/$Bin/;
    $Bin =~ m/(.*)/;
    $Bin = $1;
}
use lib $Bin;
use ...;