perl -MO=Deparse -e "print for 1..10"