#!/usr/local/bin/perl
print do { print 1 while 1 }