#!/usr/bin/perl

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

@in_data = qw(table id_field email_field state_field zip_field dob_field);

sub USAGE {
    "Usage:\n\t$0 @in_data";
}

@ARGV == @in_data or die USAGE;

eval "\$$in_data[$i++] = '$_'" for @ARGV;

print <<EOSQL

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%'

EOSQL