1package HereDoc;
2use strict;
3$HereDoc::VERSION = 1;
4
5sub magic {
6  print <<'END';
7package Errno;
8-use vars qw($VERSION);
9-
10-$VERSION = "1.111";
11+our $VERSION = "1.111";
12END
13}
14
151;
16