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