#!/opt/perl/bin/perl -w

use strict;
use warnings;

use FindBin;

BEGIN {
    delete $INC {'File/Spec.pm'};
    delete $INC {'File/Spec/Unix.pm'};
}

use vars '$old_W';

BEGIN {$old_W = $^W; $^W = 0}
use libs '....';     # The 'cousin' directory here.
use File::Spec;
BEGIN {$^W = $old_W}