#!/usr/bin/perl
use strict;
use warnings;
print "Content-type: text/html; charset=utf-8\n\n";

open(my $file, '<', "/home/heng890331/logs/api.gentos.hengxiao.net/https/access.log") or die "Could not open log file";

print "<html><body><a href='#end'>点击到最后一条记录</a>";
while (my $row = <$file>) {
    chomp $row;
    print "<p>$row</p>";
}
print "<font color='red'><a name='end'>以上是所有记录</a></font></body></html>";