Found one!

In Math::FFT the author has provided an easy way to use FFTs to calculate cross-correlation:

   $fft1 = new Math::FFT($data1);
   $fft2 = new Math::FFT($data2);
   $corr = $fft1->correl($fft2);
[download]

Look under Applications - Correlation in the documention of Math::FFT.