sub farmInput {
  my($corp, $finalPath) = ($_[0], $_[1]);
  my $path = "/usr/local/farm/*/*/$finalPath/*$corp*";
  my @farms = glob($path); 
  foreach my $farm (@farms) {
    my $s = stat($farm);
     printf "%s: Age [%s], size [%d]\n", $farm, ParseDateString("epoch $s->mtime()"), $s->size();
#    printf "%s: Age [%s], size [%d]\n", $farm, $s->mtime(), $s->size();
  } # end of foreach statement
} # end farmInput