my $cid="";
foreach (@output)
{ if ($_ =~/^CID: (.*)/)
  { $cid=$1; 
  }
}