The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
$foo << 1;
$foo <<
1;
$foo << $bar;
<< foo;
<<foo;
foo
@foo = <<EOF;
EOF
@foo = (<<EOF);
EOF