sub exec_callback {
   my $code=shift;
   local $::hash={};
   local $::row=1;
   $code->();
}