#!/usr/bin/perl -w

use strict; 
my $foo = 'date';

print <<'SINGLE';
$foo
SINGLE

print <<"DOUBLE";
$foo
DOUBLE

print <<`BACK`;
$foo
BACK

print <<IMPLIED;
$foo
IMPLIED

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my @list = qw <<HERE;

##</code><code>##

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

##</code><code>##

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