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