Select Code to Download

use strict;
package Extension;
...
}

1;

use IPC::System::Simple qw/capturex/;
sub apply_scalar_function_of_x {
...
    }
    return $result;
}