use Getopt::Long;
use Pod::Usage;
#use SQL::Generator;

GetOptions
  (
   'table=s'       => \$table,
   'id_field=s'    => \$email_field,
   'state_field=s' => \$state_field,
   'zip_field=s'   => \$zip_field,
   'dob_field=s'   => \$dob_field,
   'help|?'        => \$help,
   man             => \$man
  ) or die pod2usage(2) ;

pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;


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