my $sql_stmnt = "SELECT emp_id, CONCAT(emp_last, ', ', emp_first), dept_name
                 FROM sys_main.humans, sys_main.depts 
                 WHERE status='AV' AND dept_id=dept
                 ORDER BY '$sort'";
my $sth = $dbh->prepare($sql_stmnt);
$sth->execute();

##</code><code>##

my $sth = $dbh->prepare_cached(<<"+++end_of_sql_statement");
  SELECT emp_id, CONCAT(emp_last, ', ', emp_first), dept_name
  FROM sys_main.humans, sys_main.depts 
  WHERE status='AV' 
    AND dept_id=dept
  ORDER BY ?
+++end_of_sql_statement

$sth->execute($sort);

##</code><code>##

$q->start_html(-title=>'Employee Table', -bgcolor=>'#FFFFFF', 
                  -link=>'#4682B4', -vlink=>'#5F9EA0',
                  -alink=>'#1E90FF')

$q->start_table({-width=>'450', -border=>'0',
                    -cellpadding=>'2', -cellspacing=>'0'})

##</code><code>##

my $stylesheet = <<'++end_of_stylesheet';
  .emp_table {
    width:        450 pt;
    border-width: 0 pt;
    padding:      2 pt;
  }
++end_of_stylesheet

print $q->start_html(-title => 'Employee Table', 
                     -style => { -code =>$stylesheet }),
                     
      $q->start_table({ -class => 'emp_table', 
                        -width => 450 });

##</code><code>##

-href=>"emp-list.cgi"

##</code><code>##

my $STYLESHEET_DIR = '/stylesheets';
my $IMAGE_DIR      = '/images';

##</code><code>##

while (@_ = $sth->fetchrow_array()) {
   $emp_id = $_[0];
   $emp_name = $_[1];
   $dept = $_[2];

##</code><code>##

while (my ($emp_id, $emp_name, $dept) = $sth->fetchrow_array) 
{ ... }