use MyModule qw(MyFunction); BEGIN { my $subref = \&MyFunction; # already imported *{__PACKAGE__.'::MyFunction'} = sub { $subref->('HelloWord', @_) }; }