perl -MO=Deparse -e 'take(1+2)'
take(3);