use File::Spec;
use FindBin;
BEGIN{
    unless((defined $FindBin::Bin)&&(length($FindBin::Bin) > 3)&&(-d $FindBin::Bin)){
    use File::Basename;
    my($script,$bin) = fileparse($0);
    unshift(@INC, File::Spec->catdir($bin,'mylibs'));
    }else{
    unshift(@INC, File::Spec->catdir($FindBin::Bin,'mylibs'));
    }
}