[%
my @cmd = `/usr/bin/tail -15 /usr/local/apache2/log/access_log`;
my $str = "<HR>";

for ( @cmd ) {
   chomp;
   $str .= "$_<BR>\n";
}
$str;
%]

##</code><code>##

[%
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;
%]