%Template_vars = qw (
misattribution microsoft
correction macromedia
mailinglist modperl@perl.apache.org
product dreamweaver
);
$Template_vars{retractor} = 'David L. Nicol';
$TEMPLATE = <<EOTEM;
RETRACTION:
In a recent post to the [mailinglist] mailing list, I
misattributed the source of [product] as being [misattribution]
when in fact it is produced by [correction].
I apologize for any confusion.
[retractor]
EOTEM
$TEMPLATE =~ s/\[(\w+)\]/$Template_vars{$1}/g;
print $TEMPLATE
__END__
