package Foo;

use strict;
use warnings;

use base 'Exporter';

our $hello = \&hellosub;
our @EXPORT_OK = ( '$hello');

sub hellosub {
    my $h = shift;
    return $h;
}

print $hello->("Foo Mod init"),"\n";

1;

##</code><code>##

use strict;
use warnings;
BEGIN {
    push ( @INC,".");
}
use Foo ('$hello');

print $hello->('test'),"\n";