for (;;) { print $_; }