6       fface.gif       http://www.go.com     19     8    4 

##</code><code>##

foreach (sort keys %db)
{
   my ($starttime, $filename, $pageurl, $exposure, $clicks) = split(/\|\|/, $db{$_});
   my $ctr = $clicks / $exposures * 100;
   #my $ctr = "4";
   $ctr =~ s/(\.\d\d)\d*/$1/;

    print <<"ALL";
    <tr>
    <td>$_</td>
    <td><center>$filename</center></td>
    <td><center>$pageurl</center></td>
    <td><center>$exposure</center></td>
    <td><center>$clicks</center></td>
    <td><center>$ctr</center></td>
  </tr>
}