{
  package My::Logger;
  sub import {
    my $PACKAGE = caller;
    no strict 'refs';
    *{"$PACKAGE\::log_message"} = sub {
        my ($message) = @_;
        print STDERR "$PACKAGE - $message";
      };
  }
}
{
  package My::Script;
  My::Logger->import;
  log_message("Hello");  
}