sub localize {
    my $real = pop;

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