1#!/usr/bin/perl -spi
2	if( $found and /^$/ ){
3		print <<EOF;
4<table><tr valign=top>
5<td width=25%>
6<a href="http://www.lprng.com">
7<img align=left SRC="LPRng.jpg" ALT="LPRngLogo" height=60>
8</a>
9</td>
10<td width=50%></td><td width=25% >
11<a href="http://www.lprng.com">
12<img align=right SRC="LPRngT-L.jpg" ALT="LPRngTool" height=75>
13</a>
14</td></tr></table>
15EOF
16		$found = 0;
17	} elsif( m,<body, ){
18		$found = 1;
19	}
20