Help for this page

Select Code to Download

Select or download this

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