Select Code to Download

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

#!/usr/bin/perl
use strict;
...
print "What corp are you looking for? " ;
chomp(my $whatWeWant = <STDIN>);
Main($whatWeWant);