sub localize {
    my $real = pop;
    no strict 'refs';
    goto CALL unless @_;
    AGAIN: local *{shift@_} = sub { 'changed' };
    goto AGAIN if @_;
    CALL: $real->();
}