Select Code to Download

#!/usr/bin/perl -w

...
print <<IMPLIED;
$foo
IMPLIED

$foo
date
Wed Jun 20 15:33:51 PDT 2001
date

my @list = <<qw(HERE);
Foo Bar Baz
HERE

my @list = qw <<HERE;

my @list = qw(<< HERE);
Foo Bar Baz
HERE

my $bar = <<HERE;
Foo Bar Baz
HERE
my @list = qw($bar);