use CGI;

my $q = CGI::->new();

print $q->start_table($q->caption("table Caption")), "\n",
      $q->thead({-class=>"flip-content"},
                $q->Tr($q->td({-width=>"20%"},"Students id") ,
                 map {$q->td({-class=>"numeric"}, $_). "\n"}
                   ("First Name", "Last Name", "Date Of Birth", 
                    "Year In", "Password", "Email","Telepon")
                 )), "\n",
      $q->start_tbody(),"\n";

while (my @row_array = $sth->fetchrow_array()){ 
   print $q->Tr(
               map {$q->td($_) . "\n"} @row_array
               ),"\n";

}

print $q->end_tbody(),"\n",$q->end_table(),"\n";