BEGIN
    {
    use FindBin qw($RealBin);

    my ($cleanPath) = $RealBin =~ m/(some sane path match here)/;
    use lib $FindBin::Bin;
    }