#!/usr/bin/perl -w use strict; use CGI; use IO::File; my $f = new IO::File "/opt/cisco/cisco.log", "r" or die; my $cgi = new CGI; print $cgi->header, "CISCO LOG
";

while (defined (my $line = <$f>)) {
    $line =~ s/&/&/g;
    $line =~ s//>/g;
    print $line
}

print "
";