#Usage  perl test.pl <orig.tr>

$infile=$ARGV[0]; #'orig.tr';
open (DATA,"$infile");
@x=split(' ');
$countline=0;
$manyvalue=0;
$flag=0;
while($line=<DATA>){
@values=split(' ',$line);
#print STDOUT "res $values[2] $values[8]";
#"result $values[2] $values[6]";
@subvalues2=split('_',$values[2]);
#print STDOUT "\n $subvalues2[1]";

#$val8=$values[8];
#@subvalues8=split('\[',$val8);
#print STDOUT "\n $subvalues8[1]";

if ($subvalues2[1]==0){
if  ($values[3] eq 'MAC'){
if ($values[6] eq 'cbr'){
if ($values[7]==772){

$flag=$flag+1;
}}}}

if ($subvalues2[1]==0){
if ($values[3] eq 'MAC'){
if($values[6] eq 'RTS'){
$flag=0;
}}}

if ($flag>1) {$manyvalue=$manyvalue+1;}

$countline=$countline+1;

}
print STDOUT "\nFlag = $flag Consecutive Packets sent= $manyvalue";
print STDOUT "\n Number of lines in trace file=$countline";
close DATA;
exit(0);