#!/usr/bin/perl
# w1.7.pl
# usage:  w1.7.pl file.text
# usage:  w1.7.pl file.text > w1.7.pl file.html
# Here is a cheap HTML filter.



# Here is a cheap HTML filter.

print <<EOT
<html>
<head> <title> TC441 </title> </head>
<body bgcolor="#ffffe9">
<pre>
EOT
;
@arr =<>;
print @arr;

print("</pre>\n</body>\n</html>");
__END__
