When I run into this, I do one of three things: For really simple stuff where presentation isn't critical, I do what you've done above, and generate the HTML from CGI.pm.

For stuff where presentation is a bit more sensitive, but I still want to keep everying in one script, I might embed the HTML after __DATA__, slurp it into a variable via   my $html = { local $/; <DATA> }; and do simple regex substitutions on it before printing it.

More and more, I'm keeping the HTML in separate template files, and using the home-grown equivalent of HTML::Template to process it.