> perl -MO=Deparse -e 'while($x++ < 10){}'
while ($x++ < 10) {
    ();
}