my $usage = "usage: get_cqa_status.pl <cqa_file_path>";
my $cqapath = "";
my $status_line = "";

############################################

if ($#ARGV <0) { die "$usage"; }

	$cqapath = $ARGV[0];
	my @cqafiles = glob("$cqapath/cqa_*");
	
	open (FILE, "> $cqapath/CQA_STATUS")||die "can't open file $cqapath/CQA_STATUS for writing.\n";
	
	foreach my $item (@cqafiles)
	{
		
		my @stats = grep ('CQA_STATUS', $item);
		
		$status_line = $stats[0];
#Remove everything before the first comma		
#$status_line = substr($status_line, (index $status_line, ',')+1);
		print FILE "$status_line\n";
		
	}
	 close(FILE) || die "can't close$cqapath/CQA_STATUS after writing\n";