use DBIx::XHTML_Table;
use CGI qw(header);

print header, DBIx::XHTML_Table
   ->new(qw(DBI:vendor:database:host user pass))
   ->exec_query('SELECT firstname,lastname,login,email FROM student')
   ->map_cell(sub {my$e=shift;qq|<a href="mailto:$e">$e</a>|},'email')
   ->output
;