Select Code to Download

@farmLs = `ls -ltr /usr/local/farm/*/*/input/`;

require File::Spec;
@farms = glob(
...
    qw(usr local farms * * input), "*$corp*"
  )
);

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