package Foo::Bar;

BEGIN { 
    $INC{"Foo/Bar.pm"} = $0;
    use base "Exporter";
    @EXPORT = "hi";
}

sub hi {
    print "Hi from Foo::Bar"
}

package main;

use Foo::Bar;

hi();