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