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>";
}