...
close CHILD;

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

*foo = *bar;

foo('child');
...

##</code><code>##

12:39 >perl 844_SoPW.pl
original foo(parent)
modified foo(child)
original foo(the end)

12:39 >