Here's a silly way :)

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

cLive ;-)

--
seek(JOB,$$LA,0);