diff --git a/Makefile.PL b/Makefile.PL
index 30c1bd4..e295533 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -18,3 +18,10 @@ WriteMakefile
    clean                      => { FILES => 'feedGnuplot-*' },
   );
 
+# reroute the main POD into a separate README.pod
+open SCRIPT, 'bin/feedGnuplot' or die "Couldn't open main script";
+open README, '>README.pod'     or die "Couldn't open README.pod";
+while(<SCRIPT>)
+{
+  if(/^=/../^=cut/) { print README; }
+}