> perl -MO=Deparse -e 'for(;();){}'
while (()) {
    ();
}