#!/usr/bin/perl -w
print <<'__END__';
This is a here-doc
__DATA__
But it's not over yet!
__END__

print "This really is the
__END__
";
__DATA__
print "See?\n";

##</code><code>##

This is a here-doc
__DATA__
But it's not over yet!
This really is the
__END__

##</code><code>##

print <DATA>;
__END__
one
two