#!/usr/local/bin/perl -w
use strict;
open F,">/tmp/test" or die $!;
for (1 .. 1000) {
  syswrite F,".";
  my $s = -s F;
  warn "$s != $_" if $s != $_;
}