#!/usr/bin/perl
use strict; use warnings;
while (1) {
    while (1) {
        while (1) {
            while (1) {
            }
        }
    }
}