--- a/dnsproxy	Mon Aug 26 13:17:05 2013 +0200
+++ b/dnsproxy	Mon Aug 26 13:21:35 2013 +0200
@@ -35,13 +35,6 @@
 
 GetOptions(
     "h|help" => sub { pod2usage( -verbose => 0, -exitval => 0 ) },
-    "m|man"  => sub {
-        pod2usage(
-            -verbose   => 2,
-            -exitval   => 0,
-            -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1]
-        );
-    },
     "l|listen=s" => $opts->{listen},
     "p|port=i"   => \$opts->{port},
     "v|verbose=i"  => \$opts->{verbose}
@@ -111,8 +104,7 @@
          [-p|--port port]
          [-v|--verbose level]
 
-dnsproxy -m|--man
-         -h|--help
+dnsproxy -h|--help
 
 =head1 DESCRIPTION