Select Code to Download

use File::stat;
  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