my $x = 1;

#pod =head1 Foo
#pod
#pod This is mid-code!
#pod
#pod =cut

my $y = 2;

__END__

=pod

=head1 Foo

This is mid-code!

=cut