=head1 foo

bar

=cut

my $perlcode = 'code';

=head2 bar

foo

=cut