Select Code to Download

package X;
use strict;
...
sub should_stop { ... };

until (should_stop()){...}

local *X::should_stop = sub { return 1 };
require X;
X->import('func1');