sub zPrivateSub
{
my $dir = $OUTPUT_DIR;
my $pattern = 'Jun';
opendir( DIR, $dir );
my @files = grep( /$pattern/, readdir(DIR) );
closedir(DIR);
foreach my $file (@files) {
if ($file=~ m/orig/) {
print "$file\n";
my $lcmd = system("wc -l Check_Jun13.dat Check1_Jun13.dat");
my $lcmd = system("gunzip -c orig_file_Jun13.dat.gz|tail -1");
}
else
{
print "NO\n";
}
}
}