$ perl5.8.4 -we'sub xyzzy { print "huh?" } sub : xyzzy; shift() and goto "sub"' 1 2
huh?huh?huh?