$code = <<EOS;
sub$real_proto {
    local(\$", \$!) = (', ', defined(wantarray)? \$! : 0);
EOS