sub counter {
  open(F,'>>counter') || die $!;
  print F 0;
  close(F);
  return (stat('counter'))[7];
}