Select Code to Download

#!/usr/bin/perl
use NetPacket::Ethernet;
...
foreach $key (sort hashSort (keys(%sum))) {
    print "\t$key \t$sum{$key}\n";
}

Bytes Total
===================================================
10.11.11.11:445 <-> 22.22.22.22:47766      80000
22.22.22.22:47766 <-> 10.11.11.11:445      50000

SESSION                                    BYTES REC  BYTES SENT  TOTA
+L
10.11.11.11:445 <-> 22.22.22.22:47766      80000         30000     110
+000

FIRST KEY: 10.11.11.11:445 <-> 22.22.22.22:47766      80000
SECOND KEY: 22.22.22.22:47766 <-> 10.11.11.11:445      5000

foreach $key (keys(%sum)) {
    my @excludeList = split("<->", $key);
...
            }
        }    
}