#!/usr/bin/perl
use strict;
use File::stat;
use Date::Manip;

# This is a program that is intended to allow FEP operators
# a tool that will facilitate in monitoring incoming transmissions
# and preprocessor logs.


#------------------- Define Subroutines ------------------#
#
#
# Main is a subroutine simply written for flow control


sub Main {
  my $corp = $_[0];
  print "Input:\n";
  farmInput($corp,'input');
  print "Save:\n";
  farmInput($corp, 'input/save');
  print "Failed:\n";
  farmInput($corp, 'input/failed');
  print "Log:\n";
  farmInput($corp, 'log');


} # end Main

# This subroutine takes 2 input variables, the corp (or any text you want to find)
# and the path 

sub farmInput {
  my($corp, $finalPath) = ($_[0], $_[1]);
  my $path = "/usr/local/farm/*/*/$finalPath/*$corp*";
  my @farms = glob($path); 
  foreach my $farm (@farms) {
    my $s = stat($farm);
    printf "%s\nAge[%s] size[%d]\n", $farm, ParseDateString("epoch".$s->mtime()), $s->size();

# the above line does the same thing as the next 4 commented lines
#    printf "%s: Age [%s], size[%s]\n", 
#       $farm,
#       DateCalc( "Jan 1, 1970  00:00:00 GMT",$s->mtime() ),
#       $s->size();

  } # end of foreach statement
} # end farmInput



#------------------- End Subroutines ---------------------#

print "What corp are you looking for? " ;
chomp(my $whatWeWant = <STDIN>);
Main($whatWeWant);

##</code><code>##

</readmore>
<p>
using my perl script I get:
</p>
<code>
/usr/local/farm/vstrm/vsafp/input/IVS86095.01172005.C01.ITDVS.STMTS.100105.DAT01
Age[2005011723:54:53] size[-1]

##</code><code>##

-rw-rw-r--   1 cdusr001 prod     29116399616 Jan 17 23:55 IVS86095.01172005.C01.ITDVS.STMTS.100105.DAT01