Select Code to Download

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

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

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

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

  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;