$sth_sel->bind_col(1, \$firstname);
$sth_sel->bind_col(2, \$lastname );
$sth_sel->bind_col(3, \$state    );
$sth_sel->bind_col(4, \$country  );

my $user_table_body = '';

while ($sth_sel->fetch()) {
    $user_table_body = $q->tr(
        { -class => 'user_row' },
        $q->td({ -class => 'user_firstname_cell' }, $firstname),
        $q->td({ -class => 'user_lastname_cell'  }, $lastname),
        $q->td({ -class => 'user_state_cell'     }, $state),
        $q->td({ -class => 'user_country_cell'   }, $country),
    );
}

print $q->table(
    { -class => 'user_table' },
    $user_table_body
);