Select Code to Download

        my ($coderef, $filename) = @_;
        my $result;
...
        require $filename;
        # try to overwrite a method here
        unshift @INC, $self->{__connector};

   *setScript = *IWL::Script::setScript;
    delete $::{'IWL::'}{'Script::'}{'setScript'};
...
            *setScript{CODE}->($self, $param);
        }
    }