juerd@lanova:~$ perl -MO=Deparse -e'BEGIN { *foo = sub () { 42 } } print foo;' sub BEGIN { *foo = sub () { 42 } ; } print 42; -e syntax OK