my $pkg = 'AAAAAAAAAA';

sub EVAL {
    ++$pkg;
    if (wantarray) {
        my @res = eval <<EOS;
package $pkg;
@_
EOS
        eval 'undef %'.$pkg.'::';
        @res;
    } else {
        my $res = eval <<EOS;
package $pkg;
@_
EOS
        eval 'undef %'.$pkg.'::';
        $res;
    }
}