Select Code to Download

sub farmInput {
  my($corp, $finalPath) = ($_[0], $_[1]);
...
#    printf "%s: Age [%s], size [%d]\n", $farm, $s->mtime(), $s->size(
+);
  } # end of foreach statement
} # end farmInput

     printf "%s: Age [%s], size [%d]\n", $farm, ParseDateString("epoch
+ $s->mtime()"), $s->size();

/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bctl.e.le
+t.dat.Z: Age [], size [2069]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bills.let
+.dat.Z: Age [], size [266666425]
...
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bmsg.e.le
+t.dat.Z: Age [], size [2428]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.brels.let
+.dat.Z: Age [], size [8]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.callfile.
+call.dat.Z: Age [], size [126369639]

    printf "%s: Age [%s], size [%d]\n", $farm, $s->mtime(), $s->size()
+;

/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bctl.e.le
+t.dat.Z: Age [1106013532], size [2069]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bills.let
+.dat.Z: Age [1106018445], size [266666425]
...
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.bmsg.e.le
+t.dat.Z: Age [1106013532], size [2428]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.brels.let
+.dat.Z: Age [1106013532], size [8]
/usr/local/farm/vrsn/verisignx/input/75192.hosoft.01162005.A.callfile.
+call.dat.Z: Age [1106020765], size [126369639]

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