perl / pdl中的八度fminunc备用

Question

perl中是否有fminunc函数的替代方法（来自octave / matlab）？

我想运行梯度下降以获取θ的最小值，例如八度fminunc：

options = optimset('GradObj', 'on', 'MaxIter', 200);
[theta, cost] = ...
    fminunc(@(t)(costFunction(t,X,y)), initial_theta, options);

Perl如何做到这一点？