#!/usr/bin/perl

my $foo = '';
open FILEHANDLE, '+>', \$foo or die $!;

my $count = 0;
while(1){
print FILEHANDLE $count;
print "$foo\n";
select(undef,undef,undef,.1);
$count++;
}

close FILEHANDLE or die $!;