#!/usr/bin/perl

use TheOneRing;

foreach my $key (keys(%TheOneRing::master_arguments)) {
    print "=head2 $key\n\n=over\n\n";
    open(X,"perl -Ilib tor $key --getopt-to-pod 2>&1 |");
    while (<X>) {
	last if /Help Options/;
	print;
    }
    print "\n\n=back\n\n";
}