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