diff --git a/Changes b/Changes
index b75e843..f8a8d79 100644
--- a/Changes
+++ b/Changes
@@ -6,6 +6,7 @@
     - Improved Deriv, Integration, Chebyshev, Combination and Roots docs
     - Improved introduction examples in Math::GSL
     - Improved Minimization subsystem tests, but it is not functional
+    - Added examples/fft/forward_real
     - Added example/deriv/basic
 
         This shows the simple fact that d/dx(sin(x)) = cos(x)
diff --git a/examples/fft/forward_real b/examples/fft/forward_real
new file mode 100755
index 0000000..25f50d7
--- /dev/null
+++ b/examples/fft/forward_real
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Math::GSL::FFT qw/:all/;
+use Math::GSL::Errno qw/:all/;
+use Data::Dumper;
+
+my $data = [ (0) x 5, (1) x 22, (0) x 5 ];
+my ($status, $fft ) = gsl_fft_real_radix2_transform ($data, 1, 32);
+print Dumper $fft;
+