sub exec_callback {
  my $code = shift;
  my $caller = caller;

  no strict 'refs';
  no warnings 'once';
  local(*{$caller."::a"}) = \my $a;
  local(*{$caller."::b"}) = \my $b;
  $a = {};
  $b = 1;
  $code->();
}