use FOO qw(bar);

bar();  

##</code><code>##

package FOO;

use base Exporter;
our @EXPORT_OK = qw(bar);
sub import {
    print "Exporting the following from @_\n";
    FOO->export_to_level(1, @_);
}

sub bar {
    print "Hello world\n";
}
1;