fix type and make =head1 pod sections uppercase