$ perl -MO=Deparse -e 'sub foo(){3};print foo()'
print 3;