perl -MO=Deparse -e 'sub x {1} print x x x' sub x { 1; } print x(x(x())); -e syntax OK