in reply to CGI-DBI Connectivity and Output

You don't write head/body sections. Since you use CGI, use its methods: 
# print "Content-Type: text/html\n\n";
print $query->header(), $query->start_html();

# rest of code...

print $query->end_html();

[download]

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

In Section Seekers of Perl Wisdom