#! /usr/athena/bin/perl
open(ABC, ">/tmp/foo");

while (1) {
	print ABC "a \n";
}