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