#!/usr/local/bin/perl
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);

 $q = new CGI;
 $file = $q->param('file');
 print $q->header;
 print $q->start_html(-title=>"$file",-bgcolor=>'white');
 print "<IMG SRC=\"/NS/Asset/notice.gif\">";
 print "<HR><p>";
 unless (-e $file) { print "no such file: $file" ; exit } 
 open(FILE,"<$file"); 
 while (<FILE>) {
         print " $_ <br>\n";
 }
 close FILE;
 print "<HR> ";
 print $q->end_html;