The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 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;