f2perl brent.f
brent.f
last x is 0.51097244 f(x)= -1.84774399E-06
perl brent.pl
last x is 0.510972429850267 f(x)= -1.87140470986336e-06