sub nested {
    my $str = $q->start_table( -border => 1);
    for (my $x = 4; $x < 8; $x++) {
        $str .= $q->Tr(
            $q->td("cell ". $x),
            $q->td("cell ". $x++)
        );
    }
    return $str . $q->end_table;
}