much like Cirollo suggested, I substituted

print table({-border=>1},Tr({-align=>'CENTER',-valign=>'MIDDLE'}, [td({-width=>'150'}, [$record[0], $record[1], $record[2], $record[3], [(start_a({-href=>"/images/screenres/$record[5]"}),img({-src=>"/images/thumbnails/$record[4]"}), end_a())]])]));

for

print "<table border=1><tr align=center valign=middle><td width=150>$record[0]</td><td width=150>$record[1]</td><td width=150>$record[2]</td><td width=150>$record[3]</td><td width=150><a href=/images/screenres/$record[5]><img src=/images/thumbnails/$record[4]></td></tr></table>\n";

while not perfect, it seems to work. -phill