package Master;
use strict; use warnings;
sub import {
    my $target = caller;
    no strict 'refs';
    *{"$target\::nx"} = sub { do_something() }
}