...
close CHILD;

sub bar
{
    my $bar = shift;
    print "modified foo($bar)\n";
}

*foo = *bar;

foo('child');
...