use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Data::Dump qw(dump);

##</code><code>##

my $q = CGI->new;
print '<!--', dump($q), "-->\n";

##</code><code>##

if ($DEBUG) {
  print $q->hr;
  print $q->p('Debugging: '), $q->Dump, $q->hr;
}

##</code><code>##

<li><strong>orderby</strong></li>
<ul>
<li>10</li>

##</code><code>##

  my $index = $q->param('orderby');
  my $desc = $q->param('desc');
  $index = 1 if not defined $index;
  print "\n<!-- variables (index, desc) are ($index, $desc) -->\n" if $DEBUG;