no strict 'refs';
no warnings 'redefine';

{
    local *a = sub { "changed" };
    print_a();  # prints "changed"
}