perl script to calculate the response function dBdE