#!/usr/bin/perl

# This is a simple pre-processor written in perl.

$totallines = 0;

print "<html>\n";
print "<head>\n";
print "<title>HTML Source</title>\n";
print "</head>\n";
print "<body>\n";
print "<pre>\n";
while($line=<STDIN>) {
  $totallines++;
  $line =~ s/</&lt;/g;
  $line =~ s/>/&gt;/g;
  print $line;
}
print "</pre>\n";
print "</body>\n";
print "</html>\n";

print STDERR "   `--> myparser.pl - $totallines lines processed.\n";

exit(0);
