while( $row = $sth_sel->fetch()) {
    $sth_sel->bind_col(1, \$firstname);
    $sth_sel->bind_col(2, \$lastname);
    $sth_sel->bind_col(3, \$state);
    $sth_sel->bind_col(4, \$country);
  while ( $sth_sel->fetch() ) {

print $q->table({-border=>'1', -width=>'560', -cellpadding=>'0', -cellspacing=>'0'},

$q->Tr({-align=>'CENTER'},
[
        $q->td({-width=>'140', -align=>'center'},[$firstname, $lastname, $state, $country])
]
      )
);
    }
}