pod2usage(-verbose => 99, -sections => [ qw(fred fred/subsection) ] );