Can't say I'm proud but ...

package pmsopw_249244;

sub import {
  push @pmsopw_249244::USES, [scalar caller, @_[1 .. $#_]];
}
sub real_import {
  $_->() for @_[1 .. $#_];
}

INIT {
  for (@pmsopw_249244::USES) {
    my($pkg, @args) = @$_;
    eval (qq[{
      package $pkg;
      pmsopw_249244->real_import(\@args);
    }]);
    warn "ack - $@" if $@;
  }
}

q{ the end is nigh ...};
[download]

And the code that uses the module

use pmsopw_249244 (\&func);

sub func {
  print "I've been called\n";
}

__output__

I've been called
[download]

That might not be stellar code but hopefully it gives you some ideas.
HTH

_________
broquaint