[ktmtalk]

$letter .= "He purchased $quantity ads at $csymbol{$price} each.\n\n";

should probably be:

$letter .= "He purchased $quantity ads at {$csymbol}{$price} each.\n\n";