package main;
sub foo {
    local *main::hello = \&other::hello;
    $_[0]->();
};