1#!/usr/bin/perl -w
2use strict;
3use Pod::Usage;
4
5my $h2 = shift @ARGV || '.*';
6
7Pod::Usage::pod2usage(
8  '-verbose' => 99,
9  '-exitval' => 0,
10  '-sections' => "Name/$h2/!.+",
11);
12
13=head1 Name
14
15Testing
16
17=head2 Foo
18
19This is foo
20
21=head3 Foo bar
22
23This is foo bar.
24
25=head2 Bar
26
27This is bar.
28
29=head3 Bar baz
30
31This is bar baz.
32
33=cut
34
35