$ podchecker junk
junk pod syntax OK.

$ perldoc junk
ERROR MESSAGES
        %E2S = (
            eof => 'Unexpected end of file',
        );


$ perl -Mstrict -Mwarnings junk
{ eof => "Unexpected end of file" }

$ cat junk

BEGIN {
   use vars qw' %E2S ';
   my $pod = <<'=head1 ERROR MESSAGES';

=head1 ERROR MESSAGES


    %E2S = (
        eof => 'Unexpected end of file',
    );


=for no_pod_formatter

=cut

}

use Data::Dump; dd\%E2S;

$