#!/usr/athena/bin/perl
while (1) {
	printf("%c", 0);
}