navigate.pl?task=dsp

##</code><code>##

my $q = new CGI;
SWTC: {
  $q->param('task') eq 'dsp' and do { dsp() last SWTC; };
  $q->param('task') eq 'other' and do { other() last SWTC; };
};