Okay. So you have a bunch of files in /tivoli/maestro/schedlog and you know the file begins with M$date but you don't know what the last 4 digits are? Correct? Will there only be one file that begins M$date or will there be multiples? Do you run the conman proc against only one at a time or can it accept many?

I'd drop the $1, $2, $3, $4 stuff all together (I don't think its doing anything for you since $_ is not defined anywere - you should get warnings from these lines).

What you want is opendir, grep, readdir and closedir.

#!/usr/bin/perl -w

use strict;
print "Post Production Report program \n";

print "Enter the Date (yyyymmdd) for the report: \n";
chomp( my $date= <STDIN> );

print "Enter report type (d for detail or s for summary): \n";
chomp( my $type= <STDIN> );

my $reptr = substr( $type, 0, 1 ) eq "d" ? "-detail" : "-summary";

chdir( "tivoli" ) or
   die "cannot cd to directory";
opendir(DIR, ".") or
   die "cannot open directory: $!\n";
my @files = grep { /M$date/ } readdir(DIR);
closedir DIR;

foreach( @files ) {
   print "Would run: conman reptr $reptr $_\n";
}
[download]

-derby