#!/usr/bin/perl
use strict;
use warnings;
my $TEMPLATE_PATH = "/some/path/";
my $template_name = "data.tmpl"

my $tmpl = new HTML::Template(
                        path => [ "$TEMPLATE_PATH", ], 
                        filename => "$template_name",
                        die_on_bad_params => 0,
    );
$tmpl->params(  data1 => 'true', );
open my $OUTPUT, '>', \my $output;
print $OUTPUT $tmpl->output();
close $OUTPUT;

print $string, "\n";

##</code><code>##

<tmple_if name'data1'>
  <table width="100%" border="0" bgcolor="#ffffff"    cellpadding="0" cellspacing="0">
  <tr>
  <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
  <td width="60%">All Names List from:</td>
  <td width="40%" align="left"><b>$date</b></td>
  </tr>
  <tr>
  <td width="100%" colspan="2">&nbsp;</td>
  </tr>
  </table>
</tmpl_if>
<tmpl_if name='data2'>
  <table width="100%" border="0" bgcolor="#ffffff" cellpadding="0" cellspacing="2">
  <tr>
  <td><b>Name</b></td>
  <td><b>Address</b></td>
  <td><b>Phone</b></td>
  <td><b>Email</b></td>
  <td><b>$location</b></td>
  </tr>
  <tr>
  <td colspan="5">&nbsp;</td>
  </tr>
</tmpl_it>