The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
123456789101112131415 package HereDoc;use strict;$HereDoc::VERSION = 1;sub magic { print <<'END';package Errno;-use vars qw($VERSION);--$VERSION = "1.111";+our $VERSION = "1.111";END}1;
package
HereDoc;
use
strict;
$HereDoc::VERSION
= 1;
sub
magic {
print
<<'END';
package Errno;
-use vars qw($VERSION);
-
-$VERSION = "1.111";
+our $VERSION = "1.111";
END
}
1;