package Bar;
sub import { print "Hi!\n"; }

package main;
use warnings;
use strict;

BEGIN{*{Foo::} = *{Bar::};}
# can't "use" there because there is no Foo.pm
Foo::->import;
__END__
Hi!