my $fh;
if( ! open($fh, '>>:mmap', 'file.txt') ){ die "error opening, $!" }
select $fh; $| = 1;

my $i;
while($i++<10){
	print $fh "hello $$ at $i\n";
	sleep 1;
}
close $fh;