Program Repair Shop

36

`print` `print` `print` `print` `print`

     print qq{<HTML>\n<HEAD>\n};
     print qq{<TITLE>Order Number: $OrderNum</TITLE>\n};
     ...
     print qq{<TR>\n<TD WIDTH="500"COLSPAN="2" VALIGN="BOTTOM"><IMG SRC="../images/abars/btopp.jpg" WIDTH="500" HEIGHT="41" BORDER="0" NATURALSIZEFLAG="0"></TD></TR>\n};
     ...

Many Consecutive prints
Just use a multiline string:

     print qq{
     <HTML>
     <HEAD>
     <TITLE>Order Number: $OrderNum</TITLE>
     ...
     <TR>
     <TD WIDTH="500"COLSPAN="2" VALIGN="BOTTOM"><IMG SRC="../images/abars/btopp.jpg" WIDTH="500" HEIGHT="41" BORDER="0" NATURALSIZEFLAG="0"></TD></TR>
     ...
     };

Notice we replaced \n with an actual newline character
Now you can see what the HTML looks like

Copyright © 2006 M. J. Dominus