Message-ID: <1039751337.22128@idhost> 
Content-Transfer-Encoding: 8bit 
Content-Type: multipart/alternative; boundary="_----------=_103975133722128" 
MIME-Version: 1.0 
Date: Thu, 12 Dec 2002 19:48:57 PST 
From: <!-- TMPL_VAR NAME=FULLFROM --> <<!-- TMPL_VAR NAME=FROM -->> 
To: <!-- TMPL_VAR NAME=FNAME --> <!-- TMPL_VAR NAME=LNAME --> <<!-- TMPL_VAR NAME=EMAIL -->> 
Subject: <!-- TMPL_VAR NAME=SUBJECT --> 
Precedence: bulk 

##</code><code>##

while(my %recipient_info = get_info_from_db()) {
    my $template = HTML::Template->new(filename => 'email.tmpl');
    $template->param(%recipient_info);
    print $template->output();
}