[%
my $cmd = '/usr/bin/tail -15 /usr/local/apache2/log/access_log';
my $str = "<HR>";
open TAIL, "$cmd|" or $str .= "$!";

while ( <TAIL> ) {
   chomp;
   $str .= "$_<BR>\n";
}
close(TAIL);
$str;
%]