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;

##</code><code>##

Foo::Bar was imported! at d:/Users/lanx/pm/inc.pl line 10.
{
  "C:/Perl_64/site/lib/sitecustomize.pl" => "C:/Perl_64/site/lib/sitecustomize.pl",
  "Data/Dump.pm"                         => "C:/Perl_64/lib/Data/Dump.pm",
  "Exporter.pm"                          => "C:/Perl_64/lib/Exporter.pm",
  "Foo/Bar.pm"                           => 1,
  "overload.pm"                          => "C:/Perl_64/lib/overload.pm",
  "overloading.pm"                       => "C:/Perl_64/lib/overloading.pm",
  "strict.pm"                            => "C:/Perl_64/lib/strict.pm",
  "subs.pm"                              => "C:/Perl_64/lib/subs.pm",
  "vars.pm"                              => "C:/Perl_64/lib/vars.pm",
  "warnings.pm"                          => "C:/Perl_64/lib/warnings.pm",
  "warnings/register.pm"                 => "C:/Perl_64/lib/warnings/register.pm",
} at d:/Users/lanx/pm/inc.pl line 21.

##</code><code>##

BEGIN {
    $INC{'Foo/Bar.pm'}=__FILE__;
}