use strict;
use warnings;
use Data::Dump qw/pp dd/;




package Foo::Bar;

sub import { warn __PACKAGE__." was imported!" }

BEGIN {
    $INC{'Foo/Bar.pm'}=1;  # actually a path needed, but 1 is true enough˛ ;-)
}


package main;

use Foo::Bar;

warn pp \%INC;