#!/usr/bin/perl

# whither strict?
# use Text::Template? Template? HTML::Template?


use lib '/home/tbone/perl-modules/lib/perl5/site_perl/5.6.1';

use Text::Template::Script 
  qw(table id_field email_field state_field zip_field dob_field);

warn $table;

__DATA__

SELECT $id_field, $email_field, $state_field, $zip_field, $dob_field
FROM   $table 
WHERE  $zip_field like '336%' or $zip_field like '335%'
    or $zip_field like '346%' or $zip_field like '337%'
    or $zip_field like '342%'