#!/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