my $sql1_datos = qq(
  select contador, cod_entidad_oim, cod_agr, cod_operacion 
  from mapcom_portext.TR0685002  
  where fch_hor_operacion between getdate() and dateadd(h,-1,getdate)
);