#!/usr/bin/perl
print "Content-type:text/html\n\n";   
$filename = "."; 
opendir(flist,"$filename");
@allf = readdir flist;	
closedir(flist);   
@allf = sort @allf;
print "<pre><font face=fixedsys>";
for $i (0 .. @allf) {		
  if (length($allf[$i]) > "4") {
    print "<b>$allf[$i]</b>\n";
    open(myfile,"$allf[$i]");
    @getrec = <myfile>;
    close(myfile);  
    foreach $r (@getrec) {    
      $r =~ s/</&lt;/g; 
      $r =~ s/>/&gt;/g; 
      $r =~ s/"/&quot;/g;
      print $r;
    }
  }
}