I'm pretty sure that the main problem in this code is that it does not use strict or warnings. Apparently the variable $d_rad is never assigned a value before it is used.