FoxPro/Visual FoxPro - Conversion a VFP...

Como convierto esta consulta en perl a codigo VFP...Gracias de antemano

Select a.TIPO_OPERACION,a.CODIGO_CONTRATO,to_char(a.FECHA,'DD-MM-YYYY HH24:MI:SS'),a.NUM_OPERACION,a.SECUENCIA from tcancelacion a

where A.FECHA >= TO_DATE('$fecha_ini'||' 060000','DD/MM/RRRRHH24MISS')
AND A.FECHA <= TO_DATE('$fecha_ter'||' 230000','DD/MM/RRRRHH24MISS')
AND A.CODIGO_CONTRATO!='641'
and a.TIPO_OPERACION='1' and a.N_SERIE_CANCELADORA!='1701' and a.N_SERIE_CANCELADORA!='1801'
AND NOT EXISTS (select b.NUM_TAR from ttprueba b where b.NUM_TAR=a.NUM_TAR)

UNION

Select a.TIPO_OPERACION,a.CODIGO_CONTRATO,to_char(a.FECHA,'DD-MM-YYYY HH24:MI:SS'),a.NUM_OPERACION,a.SECUENCIA
from tcancelacion a
where A.FECHA >= TO_DATE('$fecha_ini'||' 060000','DD/MM/RRRRHH24MISS')
AND A.FECHA <= TO_DATE('$fecha_ter'||' 230000','DD/MM/RRRRHH24MISS')
AND A.CODIGO_CONTRATO='641'
and a.TIPO_OPERACION='1' and a.N_SERIE_CANCELADORA!='1701' and a.N_SERIE_CANCELADORA!='1801'
AND NOT EXISTS (select b.NUM_TAR from ttprueba b where b.NUM_TAR=a.NUM_TAR)
AND EXISTS (select c.NUM_TAR from ttfunefe c where c.NUM_TAR=a.NUM_TAR)