$ perl -MO=Deparse -e "while(1){die}"
for (;;) {
    die;
}
-e syntax OK