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/) {
	my $lcmd = system("wc -l $file");
	}
	else
	{
	print "NO\n";}		
	}
	}

##</code><code>##

orig_file.dat.gz
wc: cannot open orig_file.dat.gz