Select Code to Download

package ForeignModule;
sub NEXT { print scalar caller }
1;

package Foo;
# there is no do_something
...
    *{"$target:\:do_something"} = \&ForeignModule::NEXT;
}
1;

package main;
use strict;
...

use Foo;
do_something();