BEGIN {
    unshift(@INC, '/u/mydir/perl');
}