#!/usr/bin/perl -w
use strict;

my $good= "OK";
my $bad;

print <<"HTML";
   This block is $good.
HTML

print <<"HTML";
   This block is $bad.
HTML