BEGIN {
    unshift @INC, sub { print "@_\n"; return };
}

use Cwd;