#!/usr/bin/env perl
## author: David MacKay  Tue 25/9/07
## outputs the program surrounded by some special padding 
print '</td><td valign=top bgcolor="#ffffcc"  width=51%>
<table cellpadding=3 cellspacing=3 ><tr><Td>
<h3><a href=';
print "$ARGV[0]>$ARGV[0]" ; 
print '</a></h3></td><td align=left><small> (&larr; right click this link to download this file)</small></tr><tr><td colspan=2>
<pre>
';
while(<>){
    s/\&/&amp;/g;
    s/\</&lt;/g;
    s/\>/&gt;/g;
    print;
}
print '
</pre>
</td></tr></table>
</td></tr></table>
</td></tr></table>
';
