$ perl -lwe 'use File::Spec::Functions; my $x="x"; require join("/",$x,$x)'
Can't locate x/x in @INC ...