The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyPackage;

use strict;

# Checking encoding warning is generated even on first line of POD

sub main {
    print "This file contains no POD\n";
}

1;

=head1 TŨTORIAL

The encoding warning should only fire when the parser is 'in_pod' but that
should also be true on the first line of POD (above).