my $file = join "", <FH>;
my @rows = split /^\n/m, $file;

for (@rows) {
	print Tr(td(["Checkboxes", split "\n"]));
	print Tr({-bgcolor=>"#000066"}, td({-width=>298}, ["&nbsp;", "&nbsp;"]));
	print "\n";
}