my $old = \&IWL::Script::setScript;
*IWL::Script::setScript = sub {
  ...;
  goto &$old;
};