my $pkg = caller;
eval qq[ package $pkg; our \$a; our \$b; ];