# untested!
use File::Spec;
BEGIN {
    my $script = File::Spec->rel2abs($0);
    my ($drive, $dir) = File::Spec->splitpath($script);
    my $base = File::Spec->catpath($drive, $dir);
    if ($^O eq 'MSWin32') {
        push @INC, "$base\\lib";
    }
    else {
        push @INC, "$base/../lib";
    }
}