#!/usr/bin/perl -w

push(@INC, "/home/k/a/kakear01/www/cgi-bin/");

require("cgi-lib.pl");

&ReadParse();
$file=$in{'file'};

open(FF,"</home/k/a/kakear01/www/F98/$file");
@lines = <FF>;
close FF;
print "Content-type:text/maple\n\n";
print @lines;
exit;