我想做一些类似如下的事情：

{
    package FooObj;
 
    sub new { ... }
 
    sub add_data { ... }
}
 
{
    package BarObj;
 
    use FooObj;
 
    sub new { 
        ... 
        # BarObj "has a" FooObj
        my $self = ( myFoo => FooObj->new() );
        ...
    }
 
    sub some_method { ... }
}
 
my $bar = BarObj->new();

但是，这会导致消息：

Can’t locate FooObj.pm in @INC …
BEGIN Failed…

我该如何让这个工作？