### begin: package CustomerModule
    ### ...
    ### ...

### begin node: ccPastDue30
%hDataRec = (
    caption         => 'Past Due 30 Days',
    domain          => 'customer_corresp',
    codename        => 'ccPastDue30',
    desc            => 'for accounts that are 30 days late',
    keywords        => 'customer warning deadbeat',
### -----------------------------------------------
body =>
q^

^.MainModule::StandardHeader().q^

Dear __fname__ __lname__,
It has come to our attention that your account is 30
days past due. Please address this oversight as soon
as possible to avoid late fees and additional charges.

Thank you.

^.MainModule::StandardFooter().q^

^,
### -----------------------------------------------
);
do{my  %hTemp  = %hDataRec;
$root->{$hTemp{mnemonic}}       = \%hTemp;
};### end_node

### begin node: ccPastDue60
### ...
### ...
};### end_node

### begin node: ccPastDue90
### ...
### ...
};### end_node