#!/usr/bin/perl
                                                                       
my      $filename ="./multipath.tr";
my      @entry;
my      $size;
my      $sim_time;
my      $recv;
                                                                       
$recv = 0;
                                                                       
open(FILE, "<$filename") || die "file $filename can't open : $!";
                                                                       
while(<FILE>) {
        print "in while";
        @entry = split /\s+/;
        $size = @entry;
        print $size;
        print "\n";
        next unless ($size == 51);
        &get_throughput(@entry);
} 
                                                                       
sub get_throughput {
        my      $node_id;
        my      $end_point;
        my      $flow_id;
        my      $pkt_id;
        my      $pkt_size;
                                                                       
        if($entry[1] == "r") {
                 $sim_time  = $entry[3];
                 $node_id   = $entry[5];
                 $end_point = $entry[39];
                 $pkt_id    = $entry[41];
                 $pkt_size  = $entry[37];
                 $recv += $pkt_size;
        }
 }
                                                                                                                                               
close FILE;>
                                                                       
print $recv;
print "\n";