package MyBase;

use strict;
use warnings;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(bar);

sub FOO() {42}

sub bar {
    return FOO();
}

1;