foreach my $farm (@farms) {
    my $s = stat($farm);
     printf "%s: Age [%s], size [%d]\n", $farm, &ParseDateString("epoch $s->mtime()"), $s->size();
  } # end of foreach statement