perl -le 'use Foo::Bar; print $INC{"Foo/Bar.pm"}'