my $foo = <<EOF;
hi hi hi EOF hi hi EOF
 EOF

EOF

print $foo;