use CGI qw/:standard/;

open F, "< $flatfile_db" or die "read $flatfile_db: $!";
my $List = ul(li([<F>]));
$header =~ s/<LIST>/$List/i;