DB<186> *foo=*Test::foo DB<187> foo(1,2,3) Undefined subroutine &Test::foo called at (eval 206)[multi_perl5db.pl:644] line 2.