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