$ perl -wle'use Foo; tie $x, "Foo"; $x="42"; print $x; print for grep /auto/, values %INC'
42
auto/Foo/autosplit.ix
./auto/Foo/STORE.al
./auto/Foo/TIESCALAR.al
./auto/Foo/FETCH.al