Select Code to Download

#!/perl
my $foo = <<EOF;
...
EOF

print "=$foo=\n";

=Would these two lines
become one in a here document?
=