use strict;
print "$_: $INC{$_}\n" for keys %INC;
__END__
strict.pm: /usr/share/perl/5.10/strict.pm

##</code><code>##

use strict;
use warnings;

BEGIN {
    package Foo;
    sub new { bless {}, $_[0] }
    sub ima { "I'm a '", ref $_[0], "' object\n" }
    $INC{'Foo.pm'} = "Anything at all. It really doesn't matter";
}

use Foo;
my $F = Foo->new;
print $F->ima, "\n";
__END__
I'm a 'Foo' object