I hope you do not forget <pre> before dumping the contents of the file.

------------------------------------------

#!/opt/local/bin/perl
$my_file = "aa.txt";
open(IN, $my_file) or die "\n\ncannot open file\n\n";
@aa = <IN>;

print <<EOF;
Content-type: text/html


<html><body bgcolor=white text=blue>
<pre>

@aa

</pre></body></html>
EOF
;

__________________

William Ampeh (x3939)
Federal Reserve Board


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to