use DBI;
use Template;

#get users list from database
$sql = "SELECT user_id, ufname, ulname FROM users";
$sth = $dbh->prepare($sql) or die("Could not prepare!" . $dbh->errstr);
$sth->execute() or die("Could not execute!" . $dbh->errstr);

# build data structure
while (($user_id, $ufname, $ulname) = $sth->fetchrow_array()) {
     $data{$user_id} = {
          ufname => $ufname,
          ulname => $ulname
     }
}
$sth->finish;

#prep variables for TT
$vars = {
     data => %data,
     today => $today
};
$template_file = "./template/my_file.htm";

#process file
$template->process($template_file, $vars);

##</code><code>##

Call list for [% today %]
<p>
[% FOREACH user IN data %]
     Be sure to call [% user.ulname %], [% user.ufname %]
[% END %]