use DBI;
use CGI qw(header);
use Template;

my $dbh = DBI->connect( ... );

my $students = $dbh->selectall_arrayref('
   SELECT firstname,lastname,login,email FROM student
',{Slice => {}});

print header;
my $tt = Template->new;
$tt->process(\*DATA, {students => $students}) || die $tt->error();

__DATA__
<table>
   <tr>
      <th>Name</th> <th>Login</th> <th>Email</th>
   </tr>
   [% FOREACH student = students %]
   <tr>
      <td>[% student.lastname %], [% student.firstname %]</td>
      <td>[% student.login %]</td>
      <td>
         <a href="mailto:[% student.email %]">[% student.email %]</a>
      </td>
   </tr>
   [% END %]
</table>