package Bozo;                    # make it a package

use strict;
use warnings;

use base 'Exporter';             # subclassing with "base"
our @EXPORT = qw( go_bozo );     # "our" not "my"

sub go_bozo {
    return "BOZO!\n"
}

1;

##</code><code>##

package Foo;

use strict;
use warnings;

use Bozo;

sub Foo {
    return go_bozo()
}

1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use lib '.';

use Bozo;
use Foo;

print go_bozo();

print Foo->Foo();