# Foo.pm
package Foo;
use strict;
use warnings;
use Bar;

sub foo { warn 'Foo::foo was called' }

Bar->bar;

1;