print "Content-type: text/html\n\n"; 
print("-----router ip--------sip----------dip-----------sif------dif-------proto-----sport------dport----pkts--size<br>");
foreach( @sort_result )
{
  #print;
  @tmpdata = split(/\|/,$_);
  my $tmp_string = 
  sprintf("%15s%15s%15s%4s%4s%2s%6d%6d%10d%10d",$tmpdata[0],$tmpdata[1],$tmpdata[2],$tmpdata[3],$tmpdata[4],
                                                 $tmpdata[5],$tmpdata[6],$tmpdata[7],
                                                 $flows{$_}{pkts},$flows{$_}{size});
  print $tmp_string,"<br>";
}

##</code><code>##

-----router ip--------sip----------dip-----------proto-----sport------dport----pkts--size
10.1.64.233 10.1.64.36 99.1.64.255 1 017 137 137 1865 145956

##</code><code>##

-----router ip--------sip----------dip-----------proto-----sport------dport----pkts----size
10.1.64.233           10.1.64.36 99.1.64.255     017      137         137     1865    145956