#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n"; 

my @rows = join '', map{"<td>$_</td>"}('router ip', 'sip','dip','sif','dif','proto','sport','dport','pkts','size');
for (@sort_result) {
    my @tmpdata = split /\|/;
    push @rows, join '', map{"<td>$_</td>"} @tmpdata[0..7], $flows{$_}{pkts}, $flows{$_}{size};
}
@rows = map{ "<tr>$_</tr>\n" } @rows;
print "<table border=1>\n" , @rows, "</table>";