E:\>perl -I./lib -d:MyDB -e "sub X { Y() } sub Y { sleep(1) } X,X,Y"

E:\>type -e.profile
> ::X
>  ::Y
<  ::Y=1, 0, 0, 0, 0
< ::X=1, 0, 0, 0, 0
> ::X
>  ::Y
<  ::Y=1, 0, 0, 0, 0
< ::X=1, 0, 0, 0, 0
> ::Y
< ::Y=1, 0, 0, 0, 0