# program B use replace::functions qw(func1 func2 func3 funcx); print func1(), func2(), func3(), "\n"; print funcx(), "\n";