--- a/bin/request	Wed Jun 20 23:22:33 2012 +0200
+++ b/bin/request	Thu Jul 05 17:22:21 2012 +0200
@@ -3,10 +3,9 @@
 use 5.010;
 use strict;
 use warnings;
-use Pod::Usage;
 use Getopt::Long;
 use Template;
-#use autodie;
+use Pod::Usage;
 
 my $DIR = "requests";
 
@@ -22,8 +21,8 @@
 		"init" => \$opt_init,
 		"check" => \$opt_check,
 		"h|help" => sub { pod2usage(-exit => 0, -verbose => 1) },
-		"m|man" => sub { pod2usage(-exit => 0, -verbose => 2, 
-			-noperldoc => system("perldoc -V >/dev/null 2>&1")) }
+		"m|man" => sub { pod2usage(-verbose => 2, -exit => 0,
+			-noperldoc => system("perldoc -V 1>/dev/null 2>&1")) }
 	) or pod2usage;
 
 	my $CN = shift;
@@ -91,6 +90,8 @@
 The template file to be used for creating the request. The templates will be searched
 unter F<ca/templates>. The only substituted item is [%CN%].  (default: request.cnf)
 
+=back
+
 =cut
 
 # vim:sts=4 ts=4 sw=4 aw ai sm: