# program A use orig::functions qw(func1 func2 func3); print func1(), func2(), func3(), "\n";