use File::stat;
# ...
  my $s = stat($farm);
  printf "%s: Age [%s], size [%d]\n", $farm, $s->mtime(), $s->size();