Good catch. Using a here doc (<<EOT) rather than multiple print statements can make it easer to see what you're actually going to output rather than adding extra visual noise. Also consider using a templating module (Template or the like) and separate the presentation and markup from the code.

Update: Or qq{} as jeffa mentions below is also a good way to do it. And also not a Perl problem, but you really should have quotes around the attribute values (width="100%")</XHTML-Pedant>

Update Update: And to be a real stickler you should be using CSS rather than width attributes and tables . . .