Remove the <br>'s, replace $error .= with push @error, and:

use CGI qw/:standard *table/;
# ...
print start_table;
print Tr(td([splice @error, 0, 3])) while @error;
print end_table;
[download]