Help new users learn how to get help

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 04184be040..728ec881ce 100644
--- a/perl.c
+++ b/perl.c
@@ -2853,6 +2853,10 @@ NULL
 		  name);
     while (*p)
 	PerlIO_printf(PerlIO_stdout(), "\n  %s", *p++);
+
+    PerlIO_printf(PerlIO_stdout(),
+		  "Run 'perldoc perl' for more help with Perl.\n\n"
+		  );
 }
 
 /* convert a string of -D options (or digits) into an int.