#!/usr/bin/perl

use strict;
use warnings;

use lib '.';

use Bozo;

print go_bozo();

##</code><code>##

use strict;
use warnings;

# module Bozo

use Exporter;
my @EXPORT=qw( go_bozo);

sub go_bozo {
	return "BOZO!\n"
}

1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use lib '.';

use Foo;

print Foo->Foo();

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

package Foo;

use lib '.';
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();