[tbone@MDB 202025-007]$ perl sql.pl -?
Usage:
     sql.pl [options]
     sql.pl --table=tabla --id_field=GID --state_field=STATE --dob_field=DOB

     Options:
       --table        table
       --id_field     id field
       --state_field  state field
       --dob_field    dob field
       -help
       -man

[tbone@MDB 202025-007]$ perl sql.pl 

SELECT , , , , 
FROM   
WHERE   like '336%' or  like '335%'
    or  like '346%' or  like '337%'
    or  like '342%'

[tbone@MDB 202025-007]$