I see no problem here perl -e "sub foo(){2};BEGIN{*::foo=sub(){3};}print foo()" The saying "don't use prototypes unless you know why you shouldn't" still applies.

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.